Weights of subjects receiving one of three treatments for
anorexia. Source: Handbook of Small Datasets, Hand et al.
"Anorexia" <-
structure(list(Therapy = structure(c(1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3
), .Label = c("Control", "Family", "Cog/Behav"), class = "factor"),
Before = c(80.7, 89.4, 91.8, 74, 78.1, 88.3, 87.3, 75.1,
80.6, 78.4, 77.6, 88.7, 81.3, 78.1, 70.5, 77.3, 85.2, 86,
84.1, 79.7, 85.5, 84.4, 79.6, 77.5, 72.3, 89, 83.8, 83.3,
86, 82.5, 86.7, 79.6, 76.9, 94.2, 73.4, 80.5, 81.6, 82.1,
77.6, 83.5, 89.9, 86, 87.3, 80.5, 84.9, 81.5, 82.6, 79.9,
88.7, 94.9, 76.3, 81, 80.5, 85, 89.2, 81.3, 76.5, 70, 80.4,
83.3, 83, 87.7, 84.2, 86.4, 76.5, 87.8, 83.3, 79.7, 84.5,
80.8, 87.4), After = c(80.2, 80.1, 86.4, 86.3, 76.1, 78.1,
75.1, 86.7, 73.5, 84.6, 77.4, 79.5, 89.6, 81.4, 81.8, 77.3,
84.2, 75.4, 79.5, 73, 88.3, 84.7, 81.4, 81.2, 88.2, 78.8,
95.2, 94.3, 91.5, 91.9, 100.3, 76.7, 76.8, 101.6, 94.9, 75.2,
77.8, 95.5, 90.7, 92.5, 93.8, 91.7, 98, 82.2, 85.6, 81.4,
81.9, 76.4, 103.6, 98.4, 93.4, 73.4, 82.1, 96.7, 95.3, 82.4,
72.5, 90.9, 71.3, 85.4, 81.6, 89.1, 83.9, 82.7, 75.7, 100.4,
85.2, 83.6, 84.6, 96.2, 86.7), Y = c(-0.5, -9.30000000000001,
-5.39999999999999, 12.3, -2, -10.2, -12.2, 11.6, -7.1, 6.19999999999999,
-0.199999999999989, -9.2, 8.3, 3.30000000000001, 11.3, 0,
-1, -10.6, -4.59999999999999, -6.7, 2.800, 0.299999999999997,
1.80000000000001, 3.7, 15.9, -10.2, 11.4, 11, 5.5, 9.4, 13.6,
-2.89999999999999, -0.100000000000009, 7.39999999999999,
21.5, -5.3, -3.8, 13.4, 13.1, 9, 3.89999999999999, 5.7, 10.7,
1.70000000000000, 0.699999999999989, -0.0999999999999943,
-0.699999999999989, -3.5, 14.9, 3.5, 17.1, -7.6, 1.59999999999999,
11.7, 6.1, 1.10000000000001, -4, 20.9, -9.1, 2.10000000000001,
-1.40000000000001, 1.39999999999999, -0.299999999999997,
-3.7, -0.799999999999997, 12.6, 1.90000000000001, 3.89999999999999,
0.0999999999999943, 15.4, -0.700000000000003)), .Names = c("Therapy",
"Before", "After", "Y"), 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"
), class = "data.frame")