nz.mort <-
structure(c(0.00166, 0.00018, 0.00026, 0.00063, 0.00058, 0.00069,
0.00111, 0.00161, 0.00226, 0.00351, 0.00595, 0.01013, 0.01663,
0.02588, 0.03797, 0.05537, 0.08787, 0.13983, 0.2277, 0.00195,
0.00022, 0.00026, 0.00115, 0.00168, 0.00158, 0.00205, 0.00293,
0.00403, 0.00583, 0.00918, 0.01499, 0.02349, 0.03495, 0.05069,
0.07632, 0.12272, 0.18911, 0.27934, 0.00091, 1e-04, 1e-04, 0.00029,
0.00036, 0.00027, 0.00038, 0.00066, 0.00103, 0.00151, 0.00228,
0.00354, 0.00564, 0.00926, 0.01588, 0.02856, 0.05256, 0.10111,
0.18771, 0.00117, 0.00011, 0.00018, 0.00067, 0.00093, 8e-04,
0.00084, 0.00104, 0.00141, 0.00208, 0.00327, 0.00526, 0.00865,
0.01457, 0.02509, 0.04387, 0.07644, 0.13734, 0.22397),
.Dim = c(19L, 2L, 2L),
.Dimnames = structure(list(age = c("0-4", "5-9", "10-14",
"15-19", "20-24", "25-29", "30-34", "35-39", "40-44", "45-49",
"50-54", "55-59", "60-64", "65-69", "70-74", "75-79", "80-84",
"85-89", "90+"),
sex = c("Female", "Male"),
ethnicity = c("Maori", "Non-Maori")),
.Names = c("age", "sex", "ethnicity")))
save(nz.mort, file = "data/nz.mort.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.