En un proceso laberíntico logramos obtener las bases de datos que contenian las categorías de pobreza que conincidian con las tablas oficiales de corrección retroactiva de la Casen
Lectura de bases de datos Casen
# direccion <- switch(2,"C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/","C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/")
#
# dataset_06 <<- readRDS(paste0(direccion,"casen_2006_c.rds"))
# dataset_06 <- mutate_if(dataset_06, is.factor, as.character)
# dataset_09 <<- readRDS(paste0(direccion,"casen_2009_c.rds"))
# dataset_09 <- mutate_if(dataset_09, is.factor, as.character)
# dataset_11 <<- readRDS(paste0(direccion,"casen_2011_c.rds"))
# dataset_11 <- mutate_if(dataset_11, is.factor, as.character)
# dataset_13 <<- readRDS(paste0(direccion,"casen_2013_c.rds"))
# dataset_13 <- mutate_if(dataset_13, is.factor, as.character)
# dataset_15 <<- readRDS(paste0(direccion,"casen_2015_c.rds"))
# dataset_15 <- mutate_if(dataset_15, is.factor, as.character)
# dataset_17 <<- readRDS(paste0(direccion,"casen_2017_c.rds"))
# dataset_17 <- mutate_if(dataset_17, is.factor, as.character)
# dataset_20 <<- readRDS(paste0(direccion,"casen_2020_c.rds"))
# dataset_20 <- mutate_if(dataset_20, is.factor, as.character)
Pobreza Nueva Metodología
1 2006
Base de datos 2006 complementarias de ingresos y subsidios ajustados, desagregados SPSS
ing_2006 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2006/ingreso_ajustados_casen2006.sav", to.data.frame = TRUE)
datatable(head(ing_2006,5))Base de datos 2009 complementaria de ingresos y subsidios ORIGINALES, desagregados SPSS
ing_2006 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2006/ingresos_originales_CASEN_2006_SPSS.sav", to.data.frame = TRUE)
datatable(head(ing_2006,5))Base de datos Complementaria de Ingresos Nueva Metodología Casen 2006 SPSS
ing_2006 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2006/Ingresos MN 2006.sav", to.data.frame = TRUE)
datatable(head(ing_2006,5))2 2009
Base de datos 2009 complementarias de ingresos y subsidios ajustados, desagregados SPSS
ing_2009 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2009/ingreso_ajustados_casen2009.sav", to.data.frame = TRUE)
datatable(head(ing_2009,5))Base de datos 2009 complementaria de ingresos y subsidios ORIGINALES, desagregados SPSS
ing_2009 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2009/ingresos_originales_CASEN_2009.sav", to.data.frame = TRUE)
datatable(head(ing_2009,5))Base de datos Complementaria de Ingresos Metodología Tradicional Casen 2009 SPSS
ing_2009 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2009/Ingresos MT 2009.sav", to.data.frame = TRUE)
datatable(head(ing_2009,5))Base de datos Complementaria de Ingresos Nueva Metodología Casen 2009 SPSS
ing_2009 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2009/Ingresos MN 2009.sav", to.data.frame = TRUE)
datatable(head(ing_2009,5))3 2011
Base de datos 2011 Submuestra Noviembre 2011- Enero 2012 complementarias de ingresos y subsidios ajustados, desagregados (Base 2011 utilizada para estimaciones de serie Casen) SPSS
ing_2011 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2011/ingreso_ajustados_casen2011.sav", to.data.frame = TRUE)
datatable(head(ing_2011,5))Base de datos 2011 Submuestra Noviembre 2011- Enero 2012 complementaria de ingresos y subsidios ORIGINALES, desagregados (Base 2011 utilizada para estimaciones de serie Casen) SPSS
ing_2011 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2011/ingresos_originales_CASEN_2011_SPSS.sav", to.data.frame = TRUE)
datatable(head(ing_2011,5))Base Casen 2011 Submuestra Noviembre 2011- Enero 2012 complementaria de Edad para menores 18 (h4) (Base 2011 utilizada para estimaciones de serie Casen) SPSS
ing_2011 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2011/Casen2011_H4_R2.sav", to.data.frame = TRUE)
datatable(head(ing_2011,5))Base Complementaria Ingresos Metodología Tradicional Casen 2011 (submuestra noviembre 2011-enero 2012) (Base 2011 utilizada para estimaciones de serie Casen) SPSS
ing_2011 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2011/Ingresos MT 2011.sav", to.data.frame = TRUE)
datatable(head(ing_2011,5))Base Complementaria Ingresos Nueva Metodología Casen 2011 (submuestra noviembre 2011-enero 2012) (Base 2011 utilizada para estimaciones de serie Casen) SPSS
ing_2011 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2011/Ingresos MN 2011.sav", to.data.frame = TRUE)
datatable(head(ing_2011,5))Base de datos 2011 Muestra Completa Octubre 2011 - Enero 2012 complementarias de ingresos y subsidios ajustados, desagregados SPSS
ing_2011 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2011/casen2011_octubre2011_enero2012_ingresosajustados_08032013spss.sav", to.data.frame = TRUE)
datatable(head(ing_2011,5))Base de datos 2011 Muestra Completa Octubre 2011 - Enero 2012 complementaria de ingresos y subsidios ORIGINALES, desagregados SPSS
ing_2011 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2011/casen2011_octubre2011_enero2012_ingresosoriginal_08032013spss.sav", to.data.frame = TRUE)
datatable(head(ing_2011,5))Base Casen 2011 Muestra Completa Octubre 2011- Enero 2012 complementaria de Edad para menores 18 (h4) SPSS
ing_2011 <- read.spss("C:/Users/enamo/Desktop/Shiny-R/comprobacion_Abner/2011/Casen2011_H4_FULL.sav", to.data.frame = TRUE)
datatable(head(ing_2011,5))