directorio = system.file("extdata", package = "enaho")
leido <- leer.inei(modulo = 37, periodos = 2011, directorio = directorio, tipo = c("t1","t2"))
media.inei(x = c("P7061"),base = leido,pesos = "FACTRIM")
Run the code above in your browser using DataLab