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

## ----setup--------------------------------------------------------------------
library(enaho)

## -----------------------------------------------------------------------------
dir <- system.file("extdata", package = "enaho") # directorio con las bases
leido <- leer.inei(modulo = 37,periodos = 2011,tipo = c("t1"),directorio = dir)
leido

## -----------------------------------------------------------------------------
media.inei(x = "P7061", base = leido, pesos = "FACTRIM")

## -----------------------------------------------------------------------------
media.inei(x = "P7061",base = leido, pesos = "FACTRIM",
                 estratos = "DOMINIO")

## -----------------------------------------------------------------------------
media.inei(x = "P7061",base = leido, pesos = "FACTRIM",
                 estratos = "region")

## -----------------------------------------------------------------------------
media.inei(x = "P7061",base = leido, pesos = "FACTRIM",
                 estratos = "area")

## -----------------------------------------------------------------------------
media.inei(x = "P7061",base = leido, pesos = "FACTRIM",
                 estratos = "area",
                 ruralidad = 7:8)

## -----------------------------------------------------------------------------
media.inei(x = "P7061",base = leido, pesos = "FACTRIM",
                 estratos = c("area","DOMINIO"))

## -----------------------------------------------------------------------------
media.inei(x = "P7061",base = leido, pesos = "FACTRIM",
                 estratos = c("area","DOMINIO"),
                 combinarestratos = TRUE)

## -----------------------------------------------------------------------------
leido2 <- leer.inei(modulo = 37,periodos = c(2011,2024),tipo = c("t1"),directorio = dir,
                   combinar = TRUE)
class(leido2)

## -----------------------------------------------------------------------------
media.inei(x = "P7061", base = leido2, pesos = NULL)

## ----error=TRUE---------------------------------------------------------------
try({
media.inei(x = "P7061", base = leido2, pesos = "FACTRIM")
})

## ----error=FALSE--------------------------------------------------------------
media.inei(x = "P7061", base = leido2, pesos = c("FACTRIM","FACTOR"),)

## ----error=FALSE--------------------------------------------------------------
media.inei(x = c("P7061","P7062"), base = leido2, pesos = c("FACTRIM","FACTOR"),
                 estratos = "area")

## -----------------------------------------------------------------------------
media.inei(x = "P7061", base = leido, pesos = "FACTRIM",
            var = "insesgado")

## -----------------------------------------------------------------------------
media.inei(x = "P7061", base = leido, pesos = "FACTRIM",
            var = "MV")

## -----------------------------------------------------------------------------
media.inei(x = "P7061", base = leido, pesos = "FACTRIM",
                 decimales = 3)