R/data.R

#' Submuestra de la ENE 2010 02 EFM
#' 
#' Un conjunto de datos con las 100 primeras observaciones de la BBDD de la 
#' Encuesta Nacional de Empleo (ENE) trimestre enero-marzo 2010.
#' 
#' @format Un data.frame con 100 filas y 126 variables 
#' (importado de SPSS a R con el paquete \code{haven}).
#' @source 
#' \href{http://www.ine.cl/estadisticas/laborales/ene/base-de-datos}{Instituto
#' Nacional Estadísticas, Chile}.
#' @encoding UTF-8
"ene_2010_02"
# 
# #===============================================================================
# # Reproducción
# #===============================================================================
# 
# # Paquetes auxiliares
# library("tidyverse")  # >= 0.5.0
# library(haven)        # >= 1.0.0.9000
# 
# # Macros auxiliares
# data <- "C:/Users/observatorio02/Google Drive/BBDD/"
# 
# # Abreviaciones
# `%+%` <- function(a, b) paste0(a, b)
# 
# # Importación CASEN
# files <- list.files(data %+% "dta/")
# for (file in files) {
#   # Importa la BBDD
#   df <- haven::read_dta(path %+% "dta/" %+% file)
#   
#   # Corrige el encoding de los caracteres no-ascii
#   Encoding(names(df)) <- "latin1"
#   for (varname in colnames(df)) {
#     try(Encoding(names(attr(df[[varname]], "labels"))) <- "latin1", silent = TRUE)
#   }
# }
igutierrezm/olndictr documentation built on May 31, 2019, 8:07 a.m.