# Data for Friday 4:15 PM

class_data <- structure(
  list(
    apeindex = c(0.957446808510638,
                 0.994505494505495, 
                 1.03636363636364, 
                 0.973821989528796, 
                 1.04575163398693, 
                 1.03658536585366, 
                 1.02923976608187, 
                 1.02285714285714, 
                 0.988095238095238, 
                 0.988165680473373, 
                 0.987012987012987, 
                 1.04907975460123, 
                 1.02941176470588, 
                 1.0125786163522, 
                 1,
                 1.02, 
                 1.01104972375691, 
                 1, 
                 1.01734104046243), 
    height_cm = c(180, 181, 171, 186, 160, 170, 
                  176, 179, 166, 167, 152, 171, 
                  175, 161, 156, 153, 183, 151, 176), 
    wingspan_cm = c(188, 182, 165, 191, 153, 164, 171, 175, 
                    168, 169, 154, 163, 170, 159, 156, 150, 181, 
                    151, 173)), 
  row.names = c(NA, -19L), 
  class = "data.frame")