data-raw/VAPopn.R

In StatisticsNZ/demdata: Demographic data

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")