`onechild` <-
structure(list(day = c(1, 3, 6, 8, 10, 13, 15, 17, 20, 27, 29, 
31, 34, 36, 38, 41, 43, 45, 56, 58, 60, 63, 65, 67, 72, 74, 77, 
79, 81, 84, 88, 93, 95, 123, 126, 128, 130, 133, 135, 137, 140, 
142, 144, 147, 149, 151, 154, 156, 158, 170, 172, 175, 177, 179, 
182, 184, 186, 189, 193, 233, 235, 240, 242, 245, 247, 249, 254, 
256, 259, 261, 280, 282, 284, 287, 294, 296, 298, 301, 303, 305, 
308, 310, 312), height = c(124.2, 123.7, 123.6, 123.7, 123.4, 
123.6, 123.9, 123.8, 124, 123.9, 124.1, 124.8, 124.6, 125.2, 
124.9, 124.5, 124.5, 125.2, 125.8, 125.6, 125.6, 125.5, 125.6, 
125.6, 126.1, 125.6, 126.2, 126.2, 126, 126.4, 126.3, 126.4, 
126.8, 126.6, 126.7, 126.5, 126.5, 126.5, 126.2, 126.6, 126.2, 
126, 126, 127, 127.4, 126.7, 127.6, 127.5, 127.6, 127.7, 127.2, 
127.4, 128, 127.3, 127.5, 127.7, 127.5, 127.8, 127.7, 128.5, 
128.6, 128.4, 128.5, 128.5, 128.5, 129.1, 129, 129, 129.6, 129.6, 
129.6, 129.6, 129.7, 129.9, 130, 129.8, 129.9, 130, 130.4, 130.4, 
130.3, 130.4, 130.4)), .Names = c("day", "height"), row.names = as.integer(c(NA, 
83)), class = "data.frame")