"brainsize" <-
structure(list(Gender = structure(c(1, 2, 2, 2, 1, 1, 1, 1, 2, 
2, 1, 2, 2, 1, 1, 1, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 
1, 2, 2, 2, 1, 1, 2, 1, 2, 2), .Label = c("Female", "Male"), class = "factor"), 
    FSIQ = c(133, 140, 139, 133, 137, 99, 138, 92, 89, 133, 132, 
    141, 135, 140, 96, 83, 132, 100, 101, 80, 83, 97, 135, 139, 
    91, 141, 85, 103, 77, 130, 133, 144, 103, 90, 83, 133, 140, 
    88, 81, 89), VIQ = c(132, 150, 123, 129, 132, 90, 136, 90, 
    93, 114, 129, 150, 129, 120, 100, 71, 132, 96, 112, 77, 83, 
    107, 129, 145, 86, 145, 90, 96, 83, 126, 126, 145, 96, 96, 
    90, 129, 150, 86, 90, 91), PIQ = c(124, 124, 150, 128, 134, 
    110, 131, 98, 84, 147, 124, 128, 124, 147, 90, 96, 120, 102, 
    84, 86, 86, 84, 134, 128, 102, 131, 84, 110, 72, 124, 132, 
    137, 110, 86, 81, 128, 124, 94, 74, 89), Weight = c(118, 
    NA, 143, 172, 147, 146, 138, 175, 134, 172, 118, 151, 155, 
    155, 146, 135, 127, 178, 136, 180, NA, 186, 122, 132, 114, 
    171, 140, 187, 106, 159, 127, 191, 192, 181, 143, 153, 144, 
    139, 148, 179), Height = c(64.5, 72.5, 73.3, 68.8, 65, 69, 
    64.5, 66, 66.3, 68.8, 64.5, 70, 69, 70.5, 66, 68, 68.5, 73.5, 
    66.3, 70, NA, 76.5, 62, 68, 63, 72, 68, 77, 63, 66.5, 62.5, 
    67, 75.5, 69, 66.5, 66.5, 70.5, 64.5, 74, 75.5), MRICount = c(816932, 
    1001121, 1038437, 965353, 951545, 928799, 991305, 854258, 
    904858, 955466, 833868, 1079549, 924059, 856472, 878897, 
    865363, 852244, 945088, 808020, 889083, 892420, 905940, 790619, 
    955003, 831772, 935494, 798612, 1062462, 793549, 866662, 
    857782, 949589, 997925, 879987, 834344, 948066, 949395, 893983, 
    930016, 935863)), .Names = c("Gender", "FSIQ", "VIQ", "PIQ", 
"Weight", "Height", "MRICount"), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
"14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", 
"25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", 
"36", "37", "38", "39", "40"))