*** ESTE PROGRAMA ESTÁ DISEÑADO PARA UTILIZARSE CON EL PROGRAMA ESTADÍSTICO SPSS . ***Este programa debe ser corrido una vez finalizado el programa Parte 1 . ***Se pega a la base de hogares las bases de datos generadas anteriormente . ***Si lo que se desea es solo obtener la información de personas y hogares pobres, sin las caracteristicas de la vivienda, . ***se recomienda hacer una base derivada de la base original de hogares que contenga folio, tamaño del hogar, estrato, y factor . GET FILE='C:\ENIGH\ENIGH 2002\hogares.sav' . EXECUTE . SORT CASES BY folio . EXECUTE . MATCH FILES /FILE=* /TABLE='C:\ENIGH\Comite\Pobreza 2002\ingreso15var.SAV' /BY folio. EXECUTE. MATCH FILES /FILE=* /TABLE='C:\ENIGH\Comite\Pobreza 2002\gasto_mon15var.SAV' /BY folio. EXECUTE. MATCH FILES /FILE=* /TABLE='C:\ENIGH\Comite\Pobreza 2002\nomon_auto15var.SAV' /BY folio. EXECUTE. MATCH FILES /FILE=* /TABLE='C:\ENIGH\Comite\Pobreza 2002\nomon_esp15var.SAV' /BY folio. EXECUTE. MATCH FILES /FILE=* /TABLE='C:\ENIGH\Comite\Pobreza 2002\nomon_reg15var.SAV' /BY folio. EXECUTE. SAVE OUTFILE='C:\ENIGH\Comite\Pobreza 2002\ing_gas15var.sav' /COMPRESSED. DESCRIPTIVES VARIABLES= ingmon otrosing percep regrecib gasmon1 aliment1 a_dentr1 a_fuera1 alcotab1 vestcal1 viviend1 pagoviv limpiez1 enseres1 cristal1 salud1 transpu1 transfo1 comunic1 edurecr1 educab1 educag1 recre1 cuidper1 accpers1 otros1 regdado1 gasnomo2 aliment2 a_dentr2 a_fuera2 alcotab2 vestcal2 viviend2 limpiez2 enseres2 cristal2 salud2 transpu2 transfo2 comunic2 edurecr2 educab2 educag2 recre2 cuidper2 accpers2 otros2 regdado2 gasnomo3 aliment3 a_dentr3 a_fuera3 alcotab3 vestcal3 viviend3 limpiez3 enseres3 cristal3 salud3 transpu3 transfo3 comunic3 edurecr3 educab3 educag3 recre3 cuidper3 accpers3 otros3 regdado3 gasnomo4 aliment4 a_dentr4 a_fuera4 alcotab4 vestcal4 viviend4 limpiez4 enseres4 cristal4 salud4 transpu4 transfo4 comunic4 edurecr4 educab4 educag4 recre4 cuidper4 accpers4 otros4 regdado4 est_alq vivprop vivrecib vivprest vivotra /STATISTICS=SUM . *** Construcción de rural y urbano, criterio de 15000 habitantes . IF (estrato > '2') rururb = 1 . IF (estrato <= '2') rururb = 0 . value labels rururb 1 'rural <15000 hab.' 0 'urbano' . *************************************************************************************************************************************************** *************************************************************************************************************************************************** *************************************************************************************************************************************************** COMPUTE gasmon = SUM(aliment1,alcotab1,vestcal1,viviend1,limpiez1,enseres1,cristal1,salud1, transpu1,transfo1,comunic1,edurecr1,cuidper1,accpers1,otros1) . COMPUTE autocons = SUM(aliment2,alcotab2,vestcal2,viviend2,limpiez2,enseres2,cristal2,salud2, transpu2,transfo2,comunic2,edurecr2,cuidper2,accpers2,otros2) . COMPUTE pago_esp = SUM(aliment3,alcotab3,vestcal3,viviend3,limpiez3,enseres3,cristal3,salud3, transpu3,transfo3,comunic3,edurecr3,cuidper3,accpers3,otros3) . COMPUTE reg_esp = SUM(aliment4,alcotab4,vestcal4,viviend4,limpiez4,enseres4,cristal4,salud4, transpu4,transfo4,comunic4,edurecr4,cuidper4,accpers4,otros4) . COMPUTE nomon = SUM(autocons,pago_esp,reg_esp,est_alq) . COMPUTE regdados = SUM(regdado1,regdado2,regdado3) . COMPUTE ict = SUM(ingmon,nomon) . COMPUTE gct = SUM(gasmon,nomon) . COMPUTE int = SUM(ingmon,nomon,-regdados,-reg_esp) . COMPUTE gnt = SUM(gasmon,nomon,-regdados,-reg_esp) . COMPUTE ictpc = SUM(ingmon,nomon) / tam_hog . COMPUTE gctpc = SUM(gasmon,nomon) / tam_hog . COMPUTE intpc = SUM(ingmon,nomon,-regdados,-reg_esp) / tam_hog . COMPUTE gntpc = SUM(gasmon,nomon,-regdados,-reg_esp) / tam_hog . DESCRIPTIVES VARIABLES= gasmon autocons pago_esp reg_esp nomon regdados ict gct int gnt ictpc gctpc intpc gntpc /STATISTICS=SUM . *************************************************************************************************************************************************** *************************************************************************************************************************************************** *************************************************************************************************************************************************** *** Generacion del factor de expansión de las personas . COMPUTE fact_dec = factor * tam_hog . SORT CASES BY rururb . SPLIT FILE SEPARATE BY rururb . SPLIT FILE OFF. WEIGHT BY factor . COMPUTE gcalim = SUM(aliment1,aliment2,aliment3,aliment4) . COMPUTE gnalim = SUM(aliment1,aliment2,aliment3) . COMPUTE gcalimpc = SUM(aliment1,aliment2,aliment3,aliment4) / tam_hog . COMPUTE gnalimpc = SUM(aliment1,aliment2,aliment3) / tam_hog . *** Medición de pobres alimentarios . IF (intpc <= 672.25 & rururb = 0) pobalim = 1 . IF (intpc > 672.25 & rururb = 0) pobalim = 0 . IF (intpc <= 494.77 & rururb = 1) pobalim = 1 . IF (intpc > 494.77 & rururb = 1) pobalim = 0 . CROSSTABS /TABLES=pobalim BY rururb /FORMAT= AVALUE TABLES /CELLS= COUNT ROW COLUMN TOTAL . SORT CASES BY rururb intpc . SPLIT FILE SEPARATE BY rururb . CREATE /fac_acum = CSUM(factor) . SPLIT FILE OFF. ***Creación del decil movil . ***Generando el factor de expansión acumulado a nivel hogar, se busca el hogar pivote. Este hogar será aquel que tenga un ingreso neto per capita igual . *** o inmediatamente superior a la linea de pobreza alimentaria correspondiente a su estrato . ***Se toma el factor acumulado que se tiene para dicho hogar y a partir de este se genera el decil movil . ***La idea principal del decil movil es dejar en el centro, dentro de un decil, al hogar pivote. IF ((1340669 - (15662728 / 20) < fac_acum) & (1340669 + (15662728 / 20) > fac_acum) & rururb = 0) decmovil = 1 . IF ((2562346 - (8987441 / 20) < fac_acum) & (2562346 + (8987441 / 20) > fac_acum) & rururb = 1) decmovil = 1 . SAVE OUTFILE='C:\ENIGH\Comite\Pobreza 2002\ing_gas15var _2.sav' /COMPRESSED. ****************************************************************************************************** ****************************************************************************************************** ***Para obtener la pobreza de capacidades y patrimonial se restringe el gasto monetario a solo los rubros de interes . ***El gasto para capacidades debe contemplar: salud, educacion y alimentacion . COMPUTE gasmon2 = SUM(aliment1,salud1, educab1) . COMPUTE autocon2 = SUM(aliment2,salud2, educab2) . COMPUTE pagoesp2 = SUM(aliment3,salud3, educab3) . COMPUTE nomon2 = SUM(autocon2,pagoesp2) . COMPUTE gnt2 = SUM(gasmon2,nomon2). ***El gasto para patrimonial debe contemplar: salud, educacion, alimentacion, vestido-calzado, vivienda, transporte publico . COMPUTE gasmon1 = SUM(aliment1,vestcal1,viviend1,salud1, transpu1,educab1) . COMPUTE autocon1 = SUM(aliment2,vestcal2,viviend2,salud2, transpu2,educab2) . COMPUTE pagoesp1 = SUM(aliment3,vestcal3,viviend3,salud3, transpu3,educab3) . COMPUTE nomon1 = SUM(autocon1,pagoesp1,est_alq) . COMPUTE gnt1 = SUM(gasmon1,nomon1). MEANS TABLES=gnalim gnt1 gnt2 BY rururb BY decmovil /CELLS SUM . *** con las medias obtenidas anteriormente, se divide cada gnt1 y gnt2 entre gnalim . *** Pobreza de Capacidades . IF(intpc <= 672.25 * 1.179 & rururb = 0) pobcap = 1 . IF(intpc > 672.25 * 1.179 & rururb = 0) pobcap = 0 . IF(intpc <= 494.77 * 1.187 & rururb = 1) pobcap = 1 . IF(intpc > 494.77 * 1.187 & rururb = 1) pobcap = 0 . *** Pobreza Patrimonial . IF(intpc <= 672.25 * 2.034 & rururb = 0) pobpatr = 1 . IF(intpc > 672.25 * 2.034 & rururb = 0) pobpatr = 0 . IF(intpc <= 494.77 * 1.913 & rururb = 1) pobpatr = 1 . IF(intpc > 494.77 * 1.913 & rururb = 1) pobpatr = 0 . CROSSTABS /TABLES=pobcap BY rururb /FORMAT= AVALUE TABLES /CELLS= COUNT ROW COLUMN TOTAL . CROSSTABS /TABLES=pobpatr BY rururb /FORMAT= AVALUE TABLES /CELLS= COUNT ROW COLUMN TOTAL . SPLIT FILE OFF. WEIGHT BY fact_dec . CROSSTABS /TABLES=pobalim BY rururb /FORMAT= AVALUE TABLES /CELLS= COUNT ROW COLUMN TOTAL . CROSSTABS /TABLES=pobcap BY rururb /FORMAT= AVALUE TABLES /CELLS= COUNT ROW COLUMN TOTAL . CROSSTABS /TABLES=pobpatr BY rururb /FORMAT= AVALUE TABLES /CELLS= COUNT ROW COLUMN TOTAL .