## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----setup-------------------------------------------------------------------- library(enaho) ## ----------------------------------------------------------------------------- dir <- system.file("extdata", package = "enaho") leido <- leer.inei(encuesta = "ENAHO", modulo = 37, periodos = 2011, tipo = c("t1","t2"), directorio = dir) leido ## ----------------------------------------------------------------------------- combinar.inei(x = leido, combinarsolocomunes = FALSE) ## ----------------------------------------------------------------------------- leer.inei.web(encuesta = "ENAHO", modulo = 37, periodos = 2011, tipo = c("t1")) ## ----------------------------------------------------------------------------- variablesxperiodo(modulo = 37, periodos = c(2011,2024),directorio = dir,tipo = "t1") ## ----------------------------------------------------------------------------- vars <- c("AÑO","UBIGEO","DOMINIO","ESTRATO","P702","FACTRIM","FACTOR") leer.inei(modulo = 37, periodos = c(2011,2024),directorio = dir,tipo = "t1",columnas = vars) ## ----------------------------------------------------------------------------- leer.inei(modulo = 37, periodos = c(2011,2024),directorio = dir,tipo = "t1",solocomunes = TRUE)