"too.young" <-
structure(list(Male = c(16, 18, 21, 25, 30, 40, 50, 60, 16, 18,
21, 25, 30, 40, 50, 60, 16, 18, 21, 25, 30, 40, 50, 60, 16, 18,
21, 25, 30, 40, 50, 60, 16, 18, 21, 25, 30, 40, 50, 60, 16, 18,
21, 25, 30, 40, 50, 60, 16, 18, 21, 25, 30, 40, 50, 60, 16, 18,
21, 25, 30, 40, 50, 60, 16, 18, 21, 25, 30, 40, 50, 60, 16, 18,
21, 25, 30, 40, 50, 60), Female = c(14, 16, 18, 18, 22, 25, 30,
35, 13, 16, 17, 19, 19, 19, 30, 35, 15, 16, 18, 21, 25, 30, 35,
45, 15, 16, 18, 19, 25, 30, 30, 30, 14, 16, 18, 18, 18, 25, 30,
30, 15, 16, 18, 22, 25, 35, 45, 50, NA, 17, 18, 21, 25, 30, 30,
40, 15, 16, 17, 18, 23, 30, 35, 45, 16, 18, 18, 21, 21, 25, 35,
45, 14, 16, 18, 18, 25, 30, 40, 50)), .Names = c("Male", "Female"
), 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", "53", "54", "55", "56", "57", "58", "59", "60",
"61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71",
"72", "73", "74", "75", "76", "77", "78", "79", "80"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.