"rat.diet" <- 
structure(.Data = 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.399000000000001, 22.25, 17.949000000000002, 19.899000000000001,
	21.449000000000002, 16.899000000000001, 21.5, 22.800000000000001, 
	24.699000000000002, 26.199999999999999, 28.5, 24.350000000000001, 
	24.399000000000001, 26.600000000000001, 26.199999999999999, 
	26.649000000000001, 29.25, 27.550000000000001, 29.600000000000001,
	24.899000000000001, 27.600000000000001, 28.100000000000001, 
	27.850000000000001, 26.899000000000001, 27.800000000000001, 30.25,
	27.600000000000001, 27.449000000000002, 27.199000000000002, 
	27.800000000000001, 28.199000000000002, 28., 27.300000000000001, 
	27.899000000000001, 28.699000000000002, 27.600000000000001, 
	28.600000000000001, 27.5)
, "trt" = c(21.300000000000001, 16.350000000000001, 19.25, 16.600000000000001, 14.75,
	18.149000000000001, 14.648999999999999, 16.699999999999999, 
	15.050000000000001, 15.5, 13.949, 16.949000000000002, 15.6, 14.699,
	14.15, 14.898999999999999, 12.449, 14.85, 16.75, 14.300000000000001,
	16., 16.850000000000001, 15.65, 17.149000000000001, 18.050000000000001,
	15.699, 18.25, 18.149000000000001, 16.149000000000001, 
	16.899000000000001, 18.949999999999999, 22., 23.600000000000001, 23.75,
	27.149000000000001, 28.449000000000002, 25.850000000000001, 
	29.699999999999999, 29.449000000000002)
)
, class = "data.frame"
, names = c("t", "con", "trt")
, 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")
)