inst/Data_Scripts/app1.R

library(haven)
library(dplyr)

chis <- read_sas("child.dta")

names(chis) <- toupper(names(chis))

chis <- chis %>% select_(~CA6, ~SRAGE)

saveRDS(chis, "chis.rds")
carlganz/CSP2017 documentation built on May 13, 2019, 12:44 p.m.