## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(censosbo)

## -----------------------------------------------------------------------------
censo_temas()[, c("tema", "etiqueta", "capitulo", "n_variables")]

## -----------------------------------------------------------------------------
censo_temas(tabla = "vivienda")[, c("tema", "etiqueta", "n_variables")]

## -----------------------------------------------------------------------------
codebook(tema = "educacion", tabla = "persona")[, c("variable", "etiqueta", "universo")]

## -----------------------------------------------------------------------------
vars_tema("educacion", tabla = "persona")

## ----eval=FALSE---------------------------------------------------------------
# get_personas_2024(
#   departamento = "Cochabamba",
#   variables = vars_tema("educacion", tabla = "persona")
# )

## -----------------------------------------------------------------------------
vars_tema("caracteristicas_economicas", tabla = "persona", origen = "cuestionario")

## -----------------------------------------------------------------------------
codebook(c("p40_lee", "p43_pago", "p53_ecivil", "p54_hvtot", "nivel_edu"),
         tabla = "persona")[, c("variable", "etiqueta", "universo")]

## -----------------------------------------------------------------------------
cb <- codebook(tabla = "persona")
table(cb$universo, useNA = "no")

## -----------------------------------------------------------------------------
codebook_docs("p40_lee", campos = "universo_literal")$universo_literal

## -----------------------------------------------------------------------------
codebook_docs("p32_pueblo_per", campos = "definicion")$definicion

## -----------------------------------------------------------------------------
codebook_docs("v17_tenencia", campos = "pregunta_literal")$pregunta_literal

## -----------------------------------------------------------------------------
codebook_docs("nivel_edu", campos = "regla_derivacion")$regla_derivacion

## -----------------------------------------------------------------------------
table(codebook(tabla = "persona")$origen)

## -----------------------------------------------------------------------------
codebook(capitulo = "C", origen = "cuestionario")[, c("pregunta", "variable", "etiqueta")]

## -----------------------------------------------------------------------------
codebook(tema = "vivienda_hogar", tabla = "vivienda")[, c("variable", "capitulo", "pregunta")]

## -----------------------------------------------------------------------------
for (anio in c(1976, 1992, 2001, 2012, 2024)) {
  # En 1976 la tabla de personas se llama `poblacion`.
  tabla <- if (anio == 1976) "poblacion" else "persona"
  cb <- codebook(tema = "educacion", tabla = tabla, anio = anio)
  cat(anio, "->", nrow(cb), "variables:", paste(cb$variable, collapse = ", "), "\n")
}

## -----------------------------------------------------------------------------
codebook(tema = "religion", anio = 1992)[, c("variable", "etiqueta")]

## -----------------------------------------------------------------------------
table(codebook(anio = 1992)$grupo_ine, useNA = "no")

## -----------------------------------------------------------------------------
for (anio in c(1976, 1992, 2001, 2024)) {
  v <- switch(as.character(anio), "1976" = "p10", "1992" = "P10",
              "2001" = "P36", "2024" = "p40_lee")
  tabla <- if (anio == 1976) "poblacion" else "persona"
  cat(anio, "alfabetismo ->", codebook(v, tabla = tabla, anio = anio)$universo, "\n")
}

## ----eval=FALSE---------------------------------------------------------------
# get_temporal(variables = c("sabe_leer", "edad"), anios = c(1992, 2001, 2024)) |>
#   filter(edad >= 6, !is.na(sabe_leer)) |>       # el universo comparable: 6+
#   group_by(anio) |>
#   summarise(pct_alfabetizado = round(100 * mean(sabe_leer == 1), 1))

## -----------------------------------------------------------------------------
censo_bloques_meta[, c("bloque", "etiqueta", "tema")]

## -----------------------------------------------------------------------------
codebook(tabla = "ficha")[3:8, c("variable", "bloque", "denominador")]

## -----------------------------------------------------------------------------
attr(codebook_docs_meta, "ddi")[, c("anio", "estudio", "idno", "fecha")]