"divorce" <-
structure(list("time of divorce" = structure(c(21, 2, 8, 14,
16, 17, 18, 19, 20, 22, 23, 24, 25, 1, 3, 4, 5, 6, 7, 9, 10,
11, 12, 13, 15), .Label = c("108 months", "12 months", "120 months",
"132 months", "144 months", "156 months", "168 months", "18 months",
"180 months", "192 months", "204 months", "216 months", "228 months",
"24 months", "240 months", "30 months", "36 months", "42 months",
"48 months", "54 months", "6 months", "60 months", "72 months",
"84 months", "96 months"), class = "factor"), "all ages" = c(0.01,
0.02, 0.02, 0.02, 0.02, 0.03, 0.02, 0.02, 0.02, 0.02, 0.03, 0.03,
0.03, 0.02, 0.02, 0.0200000000000000, 0.03, 0.01, 0.0200000000000000,
0.02, 0.01, 0.02, 0.00999999999999995, 0.01, 0.02), "0-17" = c(0.02,
0.02, 0.03, 0.03, 0.03, 0.04, 0.03, 0.03, 0.04, 0.0200000000000000,
0.05, 0.05, 0.03, 0.03, 0.03, 0.01, 0.03, 0.02, 0.0299999999999999,
0.02, 0.01, 0.02, 0.01, 0.02, 0.02), "18-19" = c(0.01, 0.03,
0.02, 0.03, 0.03, 0.03, 0.03, 0.02, 0.02, 0.02, 0.04, 0.04, 0.03,
0.02, 0.03, 0.0200000000000000, 0.02, 0.02, 0.00999999999999995,
0.02, 0.02, 0.02, 0.01, 0.01, 0.01), "20-24" = c(0.01, 0.01,
0.02, 0.02, 0.02, 0.02, 0.02, 0.02, 0.02, 0.01, 0.02, 0.03, 0.03,
0.02, 0.0200000000000000, 0.02, 0.02, 0, 0.0200000000000000,
0.01, 0.01, 0.01, 0.01, 0.01, 0.00999999999999995), "25-100" = c(0.01,
0.01, 0.02, 0.01, 0.01, 0.02, 0.02, 0.01, 0.02, 0.02, 0.02, 0.02,
0.01, 0.02, 0.02, 0.02, 0.03, 0.01, 0.01, 0.04, 0.01, 0.07, 0,
0, 0)), .Names = c("time of divorce", "all ages", "0-17", "18-19",
"20-24", "25-100"), 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"), class = "data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.