VAPopn <- array(c(29720, 25267, 21432, 18263, 11612,
28028, 23391, 20264, 16510, 10493,
17496, 13740, 10817, 8013, 5130,
18718, 15278, 13004, 10153, 6694,
9402, 7243, 6230, 5699, 3342,
8378, 6138, 5341, 4445, 2866,
5778, 3919, 2932, 2513, 1323,
6116, 4171, 3102, 2692, 1658),
dim = c(5, 2, 2, 2),
dimnames = list(age = c("50-54", "55-59", "60-64", "65-69", "70-74"),
sex = c("Male", "Female"),
residence = c("Rural", "Urban"),
color = c("White", "Colored")))
save(VAPopn, file = "data/VAPopn.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.