"babyboom" <-
structure(list(clock.time = c(5, 104, 118, 155, 257, 405, 407,
422, 431, 708, 735, 812, 814, 909, 1035, 1049, 1053, 1133, 1209,
1256, 1305, 1406, 1407, 1433, 1446, 1514, 1631, 1657, 1742, 1807,
1825, 1854, 1909, 1947, 1949, 1951, 2010, 2037, 2051, 2104, 2123,
2217, 2327, 2355), gender = structure(c(1, 1, 2, 2, 2, 1, 1,
2, 2, 2, 2, 2, 1, 1, 2, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2,
1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 1, 1, 1), .Label = c("girl",
"boy"), class = "factor"), wt = c(3837, 3334, 3554, 3838, 3625,
2208, 1745, 2846, 3166, 3520, 3380, 3294, 2576, 3208, 3521, 3746,
3523, 2902, 2635, 3920, 3690, 3430, 3480, 3116, 3428, 3783, 3345,
3034, 2184, 3300, 2383, 3428, 4162, 3630, 3406, 3402, 3500, 3736,
3370, 2121, 3150, 3866, 3542, 3278), running.time = c(5, 64,
78, 115, 177, 245, 247, 262, 271, 428, 455, 492, 494, 549, 635,
649, 653, 693, 729, 776, 785, 846, 847, 873, 886, 914, 991, 1017,
1062, 1087, 1105, 1134, 1149, 1187, 1189, 1191, 1210, 1237, 1251,
1264, 1283, 1337, 1407, 1435)), .Names = c("clock.time", "gender",
"wt", "running.time"), 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"), class = "data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.