tabla <- eph::toybase_individual_2016_03 %>%
eph::organize_labels() %>%
dplyr::filter(AGLOMERADO == 32) %>%
eph::calculate_tabulates(
x = "CH03",
weights = "PONDERA",
add.totals = "row"
)
tabla %>%
dplyr::mutate(ds = calculate_errors(Freq,
codigo_aglo = "32",
periodo_eph = "2014.03", measure = "ds"
))
Run the code above in your browser using DataLab