data-raw/pop.R

## code to prepare `pop` dataset goes here

library(dplyr)

pop <- readRDS("../../B4W-19-01/data/interim/oia-co.rds") %>%
    filter(in_co_pop) %>%
    select(sex, age_weight:race_weight, stwt)

usethis::use_data(pop, overwrite = TRUE)
southwick-associates/sastats documentation built on March 27, 2020, 9:39 p.m.