tabla <- eph::toybase_individual_2016_03 %>%
eph::organize_labels() %>%
dplyr::filter(AGLOMERADO == 32) %>%
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