"rat.diet" <-
structure(list(t = c(0, 1, 3, 7, 8, 10, 14, 15, 17, 21, 22, 24, 
28, 29, 31, 35, 36, 38, 42, 43, 45, 49, 50, 52, 56, 57, 59, 63, 
64, 70, 73, 77, 80, 84, 87, 91, 94, 98, 105), con = c(20.5, 19.399, 
22.25, 17.949, 19.899, 21.449, 16.899, 21.5, 22.8, 24.699, 26.2, 
28.5, 24.35, 24.399, 26.6, 26.2, 26.649, 29.25, 27.55, 29.6, 
24.899, 27.6, 28.1, 27.85, 26.899, 27.8, 30.25, 27.6, 27.449, 
27.199, 27.8, 28.199, 28, 27.3, 27.899, 28.699, 27.6, 28.6, 27.5
), trt = c(21.3, 16.35, 19.25, 16.6, 14.75, 18.149, 14.649, 16.7, 
15.05, 15.5, 13.949, 16.949, 15.6, 14.699, 14.15, 14.899, 12.449, 
14.85, 16.75, 14.3, 16, 16.85, 15.65, 17.149, 18.05, 15.699, 
18.25, 18.149, 16.149, 16.899, 18.95, 22, 23.6, 23.75, 27.149, 
28.449, 25.85, 29.7, 29.449)), .Names = c("t", "con", "trt"), 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"))