data-raw/gl_reg_births.R

In ONSdigital/Bayesian-demographic-accounts: Bayesian Demographic Accounts

library(dplyr)

pxweb_births <- readRDS("data-raw/pxweb_births.rds")

gl_reg_births <- pxweb_births %>%
    select(cohort = "mother's year of birth",
           age = "mother's age",
           gender,
           time,
           count = "Live births by Greenland's administrative division") %>%
    mutate(cohort = as.integer(cohort),
           age = as.integer(age),
           time = as.integer(time),
           count = as.integer(count)) %>%
    count(cohort, age, gender, time, wt = count, name = "count")


save(gl_reg_births,
     file = "data/gl_reg_births.rda",
     compress = "xz")