"too.young" <-
structure(list(Male = c(16, 18, 21, 25, 30, 40, 50, 60, 16, 18, 
21, 25, 30, 40, 50, 60, 16, 18, 21, 25, 30, 40, 50, 60, 16, 18, 
21, 25, 30, 40, 50, 60, 16, 18, 21, 25, 30, 40, 50, 60, 16, 18, 
21, 25, 30, 40, 50, 60, 16, 18, 21, 25, 30, 40, 50, 60, 16, 18, 
21, 25, 30, 40, 50, 60, 16, 18, 21, 25, 30, 40, 50, 60, 16, 18, 
21, 25, 30, 40, 50, 60), Female = c(14, 16, 18, 18, 22, 25, 30, 
35, 13, 16, 17, 19, 19, 19, 30, 35, 15, 16, 18, 21, 25, 30, 35, 
45, 15, 16, 18, 19, 25, 30, 30, 30, 14, 16, 18, 18, 18, 25, 30, 
30, 15, 16, 18, 22, 25, 35, 45, 50, NA, 17, 18, 21, 25, 30, 30, 
40, 15, 16, 17, 18, 23, 30, 35, 45, 16, 18, 18, 21, 21, 25, 35, 
45, 14, 16, 18, 18, 25, 30, 40, 50)), .Names = c("Male", "Female"
), 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", "41", "42", "43", "44", "45", "46", "47", "48", "49", 
"50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", 
"61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", 
"72", "73", "74", "75", "76", "77", "78", "79", "80"))
"deflection" <-
structure(list(Deflection = c(0.11019, 0.21956, 0.32949, 0.43899, 
0.54803, 0.65694, 0.76562, 0.87487, 0.98292, 1.09146, 1.20001, 
1.30822, 1.41599, 1.52399, 1.63194, 1.73947, 1.84646, 1.95392, 
2.06128, 2.16844, 0.11052, 0.22018, 0.32939, 0.43886, 0.54798, 
0.65739, 0.76596, 0.87474, 0.983, 1.0915, 1.20004, 1.30818, 1.41613, 
1.52408, 1.63159, 1.73965, 1.84696, 1.95445, 2.06177, 2.16829
), Load = c(150000, 3e+05, 450000, 6e+05, 750000, 9e+05, 1050000, 
1200000, 1350000, 1500000, 1650000, 1800000, 1950000, 2100000, 
2250000, 2400000, 2550000, 2700000, 2850000, 3e+06, 150000, 3e+05, 
450000, 6e+05, 750000, 9e+05, 1050000, 1200000, 1350000, 1500000, 
1650000, 1800000, 1950000, 2100000, 2250000, 2400000, 2550000, 
2700000, 2850000, 3e+06)), .Names = c("Deflection", "Load"), 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"))
"mhr" <-
structure(list(age = c(41, 40, 30, 22, 43, 39, 27, 39, 44, 22, 
42, 28, 28, 35, 23, 42, 74, 62, 59, 74, 73, 70, 59, 48, 42), 
    mhr = c(174, 179, 181, 184, 173, 177, 194, 184, 170, 199, 
    178, 176, 191, 178, 200, 167, 155, 159, 163, 145, 152, 154, 
    164, 165, 164)), .Names = c("age", "mhr"), 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"), class = "data.frame")
"twins" <-
structure(list(Foster = c(82, 80, 88, 108, 116, 117, 132, 71, 
75, 93, 95, 88, 111, 63, 77, 86, 83, 93, 97, 87, 94, 96, 112, 
113, 106, 107, 98), Biological = c(82, 90, 91, 115, 115, 129, 
131, 78, 79, 82, 97, 100, 107, 68, 73, 81, 85, 87, 87, 93, 94, 
95, 97, 97, 103, 106, 111), Social = structure(c(1, 1, 1, 1, 
1, 1, 1, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
2, 2), .Label = c("high", "low", "middle"), class = "factor")), .Names = c("Foster", 
"Biological", "Social"), 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"))