library(survey)
library(dplyr)
hogar <- epf_personas %>%
group_by(folio) %>%
slice(1)
dc <- survey::svydesign(ids = ~varunit, strata = ~varstrat, data = hogar, weights = ~fe)
table <- assess(create_prop("ocupado", domains = "zona+sexo", design = dc))
Run the code above in your browser using DataLab