"wtloss" <-
structure(list(Days = c(0, 4, 7, 7, 11, 18, 24, 30, 32, 43, 46, 
60, 64, 70, 71, 71, 73, 74, 84, 88, 95, 102, 106, 109, 115, 122, 
133, 137, 140, 143, 147, 148, 149, 150, 153, 156, 161, 164, 165, 
165, 170, 176, 179, 198, 214, 218, 221, 225, 233, 238, 241, 246
), Weight = c(184.35, 182.51, 180.45, 179.91, 177.91, 175.81, 
173.11, 170.06, 169.31, 165.1, 163.11, 158.3, 155.8, 154.31, 
153.86, 154.2, 152.2, 152.8, 150.3, 147.8, 146.1, 145.6, 142.5, 
142.3, 139.4, 137.9, 133.7, 133.7, 133.3, 131.2, 133, 132.2, 
130.8, 131.3, 129, 127.9, 126.9, 127.7, 129.5, 128.4, 125.4, 
124.9, 124.9, 118.2, 118.2, 115.3, 115.7, 116, 115.5, 112.6, 
114, 112.6)), .Names = c("Days", "Weight"), 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"))