data-raw/sweden.hmd.exposure/sweden.hmd.exposure.R

In StatisticsNZ/demdata: Demographic data

library(tidyverse)

sweden.hmd.exposure <- read.table("data-raw/sweden.hmd.exposure/SWE.Exposures_1x1.txt",
                                skip = 2,
                                header = TRUE,
                                na.string = ".") %>%
    select(year = Year, age = Age, Female, Male) %>%
    gather(key = "sex", value = "count", -year, -age) %>%
    mutate(age = factor(age, levels = c(0:109, "110+"))) %>%
    xtabs(count ~ age + sex + year, data = .) %>%
    array(., dim = dim(.), dimnames = dimnames(.))

save(sweden.hmd.exposure,
     file = "data/sweden.hmd.exposure.rda")