context("test-evaluacion_calidad")
# Diseños muestrales
options(survey.lonely.psu = "certainty")
dc <- survey::svydesign(ids = ~varunit, strata = ~varstrat, data = epf_personas %>% dplyr::group_by(folio) %>% dplyr::slice(1), weights = ~fe)
dc_ene <- survey::svydesign(ids = ~conglomerado, strata = ~estrato_unico, data = ene, weights = ~fact_cal)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.