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

In StatisticsNZ/demdata: Demographic data

library(tidyverse)

sweden.hmd.deaths <- read.table("data-raw/sweden.hmd.deaths/SWE.Deaths_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+")),
           count = round(count)) %>%
    xtabs(count ~ age + sex + year, data = .) %>%
    array(., dim = dim(.), dimnames = dimnames(.))

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