context("testthat.R")
verify_output("agrupada.txt", {
"# media_agrupada()"
cd <- configuracion_disenio(casen_2017_los_rios, "ytotcorh", c("comuna", "sexo"), "expc")
media_agrupada(cd)
"# mediana_agrupada()"
cd <- configuracion_disenio(casen_2017_los_rios, "ytotcorh", c("comuna", "sexo"), "expc")
mediana_agrupada(cd)
"# percentiles_agrupados()"
cd <- configuracion_disenio(casen_2017_los_rios, "ytotcorh", c("comuna", "sexo"), "expc")
percentiles_agrupados(cd, 0.7)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.