
Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
pums <- get_pums(variables = "AGEP", state = "VT", rep_weights = "person")
pums_design <- to_survey(pums, type = "person", class = "srvyr")
survey::svymean(~AGEP, pums_design)
# }
Run the code above in your browser using DataLab