*** ESTE PROGRAMA ESTÁ DISEÑADO PARA UTILIZARSE CON EL PROGRAMA ESTADÍSTICO SPSS .

***Parte 1.
***La parte 2 debe ser corrida una vez finalizado este programa .
***Programa para medir la pobreza en México 2002 .
***Base de datos utilizada: ENIGH 2002 .
***Sugerencias y dudas sobre el programa o construcción de la canasta alimentaria comunicarse con: hvera@sedesol.gob.mx  o  egrascon@sedesol.gob.mx .

***Para comenzar a crear las variables necesarias para medir la pobreza se deben tener los deflactores para los ingresos y .
***para cada rubro de gastos en precios de agosto de 2002 . 
***De igual forma, se debe tener el valor de la canasta alimentaria para rural y urbano que se deriva de la deflactación de la misma de 1992 a 2002, vease la nota .
***técnica anexada en esta hoja web .


*********************************************************************************************************************************************** .

***Base de Ingresos de ENIGH 2002.

GET
  FILE='C:\ENIGH\ENIGH 2002\ingresos.sav'.
EXECUTE .

COMPUTE ult_mes = NUMBER(SUBSTR(meses,1,2),f8) .

IF (ult_mes = 7) ing_mens = SUM(ing_1 / 0.9962122,ing_2 / 0.9933605,ing_3 / 0.9885406,ing_4 / 0.9865411,
  ing_5 / 0.9811814,ing_6 / 0.9761880) / 6 .

IF (ult_mes = 8) ing_mens = SUM(ing_1,ing_2 / 0.9962122,ing_3 /  0.9933605,ing_4 /  0.9885406,ing_5 / 0.9865411,
  ing_6 /  0.9811814) / 6 .

IF (ult_mes = 9) ing_mens = SUM(ing_1 / 1.0060148,ing_2,ing_3 / 0.9962122,ing_4 / 0.9933605,ing_5 / 0.9885406,
  ing_6 / 0.9865411) / 6 .

IF (ult_mes = 10) ing_mens = SUM(ing_1 / 1.0104489,ing_2 / 1.0060148,ing_3,ing_4 /0.9962122,ing_5 /0.9933605,
  ing_6 / 0.9885406) / 6 .

COMPUTE ing_neto = clave >= 'p001' & clave < 'p048' .
COMPUTE otro_ing = clave >= 'p048' & clave < 'p049' .
COMPUTE perc = clave >= 'p049' & clave < 'p066' .
COMPUTE reg_reci = clave >= 'p044' & clave < 'p045' .
COMPUTE ingmon = ing_neto * ing_mens .
COMPUTE otrosing = otro_ing * ing_mens .
COMPUTE percep = perc * ing_mens .
COMPUTE regrecib = reg_reci * ing_mens .

AGGREGATE
  /OUTFILE='C:\ENIGH\Comite\Pobreza 2002\ingreso15var.sav'
  /BREAK=folio
  /ingmon = SUM(ingmon) /otrosing = SUM(otrosing) /percep = SUM(percep) /regrecib = SUM(regrecib) .


***Base de Gastos de ENIGH 2002 .

GET
  FILE='C:\ENIGH\ENIGH 2002\gastos.sav'.
EXECUTE .

FILTER OFF.
USE ALL.
SELECT IF(~((clave >= 'k037' & clave < 'k045') | (clave >= 'g001' & clave < 'g002') | (clave >= 't001' & clave < 't101')
| (clave >= 't915' & clave < 't916') | (clave >= 'tb01' & clave < 'tb31') | (clave >= 'tc01' & clave < 'tc31')
| (clave >= 'td01' & clave < 'td31') | (clave >= 'te01' & clave < 'te31'))).
EXECUTE .

COMPUTE dec_lev = NUMBER(SUBSTR(folio,7,1),f8) .

COMPUTE gasmon = gas_tri / 3 .

COMPUTE alimento = (clave >= 'a001' & clave < 'a219') | (clave >= 'a235' & clave < 'a240') .
COMPUTE a_dentro = (clave >= 'a001' & clave < 'a219') .
COMPUTE a_fuera = (clave >= 'a235' & clave < 'a240') .
COMPUTE alco_tab = (clave >= 'a219' & clave < 'a235') | (clave >= 'a240' & clave < 'a243') .
COMPUTE vestcalz = (clave >= 'h001' & clave < 'h091') | (clave >= 'h093' & clave < 'h133') .
COMPUTE vivienda = (clave >= 'g002' & clave < 'g006') | (clave >= 'g008' & clave < 'g016') | (clave >= 'g018' & clave < 'g021')
   | (clave >= 'g023' & clave < 'g031') | (clave >= 'g033' & clave < 'g048') .
COMPUTE pagoviv = (clave >= 'g008' & clave < 'g009') | (clave >= 'g012' & clave < 'g013') | (clave >= 'g033' & clave < 'g034') .
COMPUTE limpieza = (clave >= 'c001' & clave < 'c025') .
COMPUTE enseres = (clave >= 'k001' & clave < 'k037') .
COMPUTE cristal = (clave >= 'i001' & clave < 'i027') .
COMPUTE salud = (clave >= 'j001' & clave < 'j078') .
COMPUTE transpub = (clave >= 'b001' & clave < 'b008') .
COMPUTE transfor = (clave >= 'm001' & clave < 'm019') | (clave >= 'f010' & clave < 'f016') .
COMPUTE comunica = (clave >= 'f001' & clave < 'f010') .
COMPUTE edurecr = (clave >= 'e001' & clave < 'e035') | (clave >= 'h091' & clave < 'h093') | (clave >= 'l001' & clave < 'l031')
   | (clave >= 'n003' & clave < 'n006') .
COMPUTE educab = (clave >= 'e002' & clave < 'e004') | (clave >= 'h091' & clave < 'h093') .
COMPUTE educag = (clave >= 'e001' & clave < 'e021') | (clave >= 'h091' & clave < 'h093') .
COMPUTE recre = (clave >= 'e021' & clave < 'e036') | (clave >= 'l001' & clave < 'l031') | (clave >= 'n003' & clave < 'n006') .
COMPUTE cuidpers = (clave >= 'd001' & clave < 'd025') | (clave >= 'h142' & clave < 'h143') .
COMPUTE accpers = (clave >= 'h133' & clave < 'h142') | (clave >= 'h143' & clave < 'h144') .
COMPUTE otros = (clave >= 'n001' & clave < 'n003') | (clave >= 'n006' & clave < 'n017') | (clave >= 't101' & clave < 't105')
   | (clave >= 't902' & clave < 't915') .
COMPUTE regdados = (clave >= 'T101' & clave < 'T105') | (clave >= 'T902' & clave < 'T915') | (clave >= 'N013' & clave < 'N014') .


*** Deflactores por rubro de gastos según periodicidad  .

*** .
COMPUTE d11d1 = 1.0000000 .
COMPUTE d11d2 = 0.9985536 .
COMPUTE d11d3 = 1.0018526 .
COMPUTE d11d4 = 1.0144045 .

COMPUTE d12d1 = 1.0000000 .
COMPUTE d12d2 = 1.0002489.
COMPUTE d12d3 = 1.0097252 .
COMPUTE d12d4 = 1.0095759 .

COMPUTE d2t1 = 0.9951430 .
COMPUTE d2t2 = 0.9964074 .
COMPUTE d2t3 = 0.9987448 .
COMPUTE d2t4 = 1.0027894 .

COMPUTE d3m1 = 0.9955227. 
COMPUTE d3m2 = 1.0000000 .
COMPUTE d3m3 = 1.0068950 .
COMPUTE d3m4 = 1.0186554 .

COMPUTE d42m1 = 0.9983207 .
COMPUTE d42m2 = 1.0000000 .
COMPUTE d42m3 = 0.9968814 .
COMPUTE d42m4 = 0.9949622 .

COMPUTE d41s1 = 1.0009150 .
COMPUTE d41s2 = 0.9997571 .
COMPUTE d41s3 = 0.9985147 .
COMPUTE d41s4 = 0.9973873 .

COMPUTE d42t1 = 1.0008716 .
COMPUTE d42t2 = 0.9998103 .
COMPUTE d42t3 = 0.9984007 .
COMPUTE d42t4 = 0.9972812 .

COMPUTE d51t1 = 0.9908597 .
COMPUTE d51t2 = 0.9951418 .
COMPUTE d51t3 = 0.9994649 .
COMPUTE d51t4 = 1.0040329 .

COMPUTE d611d1 = 1.0000000 .
COMPUTE d611d2 = 1.0045775 .
COMPUTE d611d3 = 1.0051061 .
COMPUTE d611d4 = 1.0075395 .

COMPUTE d6s1 = 0.9945944 .
COMPUTE d6s2 = 0.9966507 .
COMPUTE d6s3 = 0.9983886 .
COMPUTE d6s4 = 0.9996654 .

COMPUTE d6m1 = 0.9995807 .
COMPUTE d6m2 = 1.0000000 .
COMPUTE d6m3 = 1.0008685 .
COMPUTE d6m4 = 1.0023958 .

COMPUTE d7m1 = 0.9929507 .
COMPUTE d7m2 = 1.0000000 .
COMPUTE d7m3 = 1.0318058 .
COMPUTE d7m4 = 1.0296505 .

COMPUTE d23m1 = 0.9938275 .
COMPUTE d23m2 = 1.0000000 .
COMPUTE d23m3 = 1.0070372 .
COMPUTE d23m4 = 1.0124443 .

COMPUTE d23t1 = 0.9893882 .
COMPUTE d23t2 = 0.9953617 .
COMPUTE d23t3 = 1.0002882 .
COMPUTE d23t4 = 1.0064939 .

COMPUTE dgs1 = 0.9870040 .
COMPUTE dgs2 = 0.9909726 .
COMPUTE dgs3 = 0.9951115 .
COMPUTE dgs4 = 0.9990962 .
*** .

IF (dec_lev <= 2 & alimento = 1) alimento = gas_tri / 3 / d11d1 . 
IF (dec_lev >= 3 & dec_lev <= 5 & alimento = 1) alimento = gas_tri / 3 / d11d2 . 
IF (dec_lev >= 6 & dec_lev <= 8 & alimento = 1) alimento = gas_tri / 3 / d11d3 . 
IF (dec_lev = 9 & alimento = 1) alimento = gas_tri / 3 / d11d4 . 

IF (dec_lev <= 2 & a_dentro = 1) a_dentro = gas_tri / 3 / d11d1 . 
IF (dec_lev >= 3 & dec_lev <= 5 & a_dentro = 1) a_dentro = gas_tri / 3 / d11d2 . 
IF (dec_lev >= 6 & dec_lev <= 8 & a_dentro = 1) a_dentro = gas_tri / 3 / d11d3 . 
IF (dec_lev = 9 & a_dentro = 1) a_dentro = gas_tri / 3 / d11d4 . 

IF (dec_lev <= 2 & a_fuera = 1) a_fuera = gas_tri / 3 / d11d1 . 
IF (dec_lev >= 3 & dec_lev <= 5 & a_fuera = 1) a_fuera = gas_tri / 3 / d11d2 . 
IF (dec_lev >= 6 & dec_lev <= 8 & a_fuera = 1) a_fuera = gas_tri / 3 / d11d3 . 
IF (dec_lev = 9 & a_fuera = 1) a_fuera = gas_tri / 3 / d11d4 . 

IF (dec_lev <= 2 & alco_tab = 1) alco_tab = gas_tri / 3 / d12d1 . 
IF (dec_lev >= 3 & dec_lev <= 5 & alco_tab = 1) alco_tab = gas_tri / 3 / d12d2 . 
IF (dec_lev >= 6 & dec_lev <= 8 & alco_tab = 1) alco_tab = gas_tri / 3 / d12d3 . 
IF (dec_lev = 9 & alco_tab = 1) alco_tab = gas_tri / 3 / d12d4 . 

IF (dec_lev <= 1 & vestcalz = 1) vestcalz = gas_tri / 3 / d2t1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & vestcalz = 1) vestcalz = gas_tri / 3 / d2t2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & vestcalz = 1) vestcalz = gas_tri / 3 / d2t3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & vestcalz = 1) vestcalz = gas_tri / 3 / d2t4 . 

IF (dec_lev <= 1 & vivienda = 1) vivienda = gas_tri / 3 / d3m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & vivienda = 1) vivienda = gas_tri / 3 / d3m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & vivienda = 1) vivienda = gas_tri / 3 / d3m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & vivienda = 1) vivienda = gas_tri / 3 / d3m4 . 

IF (dec_lev <= 1 & pagoviv = 1) pagoviv = gas_tri / 3 / d3m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & pagoviv = 1) pagoviv = gas_tri / 3 / d3m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & pagoviv = 1) pagoviv = gas_tri / 3 / d3m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & pagoviv = 1) pagoviv = gas_tri / 3 / d3m4 . 

IF (dec_lev <= 1 & limpieza = 1) limpieza = gas_tri / 3 / d42m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & limpieza = 1) limpieza = gas_tri / 3 / d42m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & limpieza = 1) limpieza = gas_tri / 3 / d42m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & limpieza = 1) limpieza = gas_tri / 3 / d42m4 . 

IF (dec_lev <= 1 & enseres = 1) enseres = gas_tri / 3 / d41s1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & enseres = 1) enseres = gas_tri / 3 / d41s2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & enseres = 1) enseres = gas_tri / 3 / d41s3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & enseres = 1) enseres = gas_tri / 3 / d41s4 . 

IF (dec_lev <= 1 & cristal = 1) cristal = gas_tri / 3 / d42t1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & cristal = 1) cristal = gas_tri / 3 / d42t2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & cristal = 1) cristal = gas_tri / 3 / d42t3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & cristal = 1) cristal = gas_tri / 3 / d42t4 . 

IF (dec_lev <= 1 & salud = 1) salud = gas_tri / 3 / d51t1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & salud = 1) salud = gas_tri / 3 / d51t2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & salud = 1) salud = gas_tri / 3 / d51t3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & salud = 1) salud = gas_tri / 3 / d51t4 . 

IF (dec_lev <= 2 & transpub = 1) transpub = gas_tri / 3 / d611d1 . 
IF (dec_lev >= 3 & dec_lev <= 5 & transpub = 1) transpub = gas_tri / 3 / d611d2 . 
IF (dec_lev >= 6 & dec_lev <= 8 & transpub = 1) transpub = gas_tri / 3 / d611d3 . 
IF (dec_lev = 9 & transpub = 1) transpub = gas_tri / 3 / d611d4 . 

IF (dec_lev <= 1 & transfor = 1) transfor = gas_tri / 3 / d6s1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & transfor = 1) transfor = gas_tri / 3 / d6s2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & transfor = 1) transfor = gas_tri / 3 / d6s3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & transfor = 1) transfor = gas_tri / 3 / d6s4 . 

IF (dec_lev <= 1 & comunica = 1) comunica = gas_tri / 3 / d6m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & comunica = 1) comunica = gas_tri / 3 / d6m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & comunica = 1) comunica = gas_tri / 3 / d6m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & comunica = 1) comunica = gas_tri / 3 / d6m4 . 

IF (dec_lev <= 1 & edurecr = 1) edurecr = gas_tri / 3 / d7m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & edurecr = 1) edurecr = gas_tri / 3 / d7m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & edurecr = 1) edurecr = gas_tri / 3 / d7m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & edurecr = 1) edurecr = gas_tri / 3 / d7m4 . 

IF (dec_lev <= 1 & educab = 1) educab = gas_tri / 3 / d7m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & educab = 1) educab = gas_tri / 3 / d7m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & educab = 1) educab = gas_tri / 3 / d7m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & educab = 1) educab = gas_tri / 3 / d7m4 . 

IF (dec_lev <= 1 & educag = 1) educag = gas_tri / 3 / d7m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & educag = 1) educag = gas_tri / 3 / d7m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & educag = 1) educag = gas_tri / 3 / d7m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & educag = 1) educag = gas_tri / 3 / d7m4 . 

IF (dec_lev <= 1 & recre = 1) recre = gas_tri / 3 / d7m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & recre = 1) recre = gas_tri / 3 / d7m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & recre = 1) recre = gas_tri / 3 / d7m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & recre = 1) recre = gas_tri / 3 / d7m4 . 

IF (dec_lev <= 1 & cuidpers = 1) cuidpers = gas_tri / 3 / d23m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & cuidpers = 1) cuidpers = gas_tri / 3 / d23m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & cuidpers = 1) cuidpers = gas_tri / 3 / d23m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & cuidpers = 1) cuidpers = gas_tri / 3 / d23m4 . 

IF (dec_lev <= 1 & accpers = 1) accpers = gas_tri / 3 / d23t1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & accpers = 1) accpers = gas_tri / 3 / d23t2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & accpers = 1) accpers = gas_tri / 3 / d23t3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & accpers = 1) accpers = gas_tri / 3 / d23t4 . 

IF (dec_lev <= 1 & otros = 1) otros = gas_tri / 3 / dgs1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & otros = 1) otros = gas_tri / 3 / dgs2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & otros = 1) otros = gas_tri / 3 / dgs3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & otros = 1) otros = gas_tri / 3 / dgs4 . 

IF (dec_lev <= 1 & regdados = 1) regdados = gas_tri / 3 / dgs1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & regdados = 1) regdados = gas_tri / 3 / dgs2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & regdados = 1) regdados = gas_tri / 3 / dgs3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & regdados = 1) regdados = gas_tri / 3 / dgs4 . 

AGGREGATE
  /OUTFILE='C:\ENIGH\Comite\Pobreza 2002\gasto_mon15var.SAV'
  /BREAK=folio
  /gasmon1 = SUM(gasmon) /aliment1 = SUM(alimento) /a_dentr1 = SUM(a_dentro) /a_fuera1 = SUM(a_fuera) /alcotab1 = SUM(alco_tab)
  /vestcal1 = SUM(vestcalz) /viviend1 = SUM(vivienda) /pagoviv = SUM(pagoviv) /limpiez1 =
  SUM(limpieza) /enseres1 = SUM(enseres) /cristal1 = SUM(cristal) /salud1 =
  SUM(salud) /transpu1 = SUM(transpub) /transfo1 =
  SUM(transfor) /comunic1 = SUM(comunica) /edurecr1 = SUM(edurecr) /educab1 = SUM(educab) /educag1 = SUM(educag) /recre1 = SUM(recre) /cuidper1 =
  SUM(cuidpers) /accpers1 = SUM(accpers) /otros1 = SUM(otros) /regdado1 =
  SUM(regdados).


****Base de No Monetario de ENIGH 2002 .

GET
  FILE='C:\ENIGH\ENIGH 2002\nomon.sav'.
EXECUTE .

FILTER OFF.
USE ALL.
SELECT IF(~(tipo_gas > '3' | (clave >= 'k037' & clave < 'k045') | (clave >= 'g001' & clave < 'g002')
 | (clave >= 'q001' & clave < 'q016') | (clave >= 't915' & clave < 't916') | (clave >= 'g006' & clave < 'g007')
 | (clave >= 'g016' & clave < 'g017') | (clave >= 'g021' & clave < 'g022') | (clave >= 'g031' & clave < 'g032'))).
EXECUTE .

COMPUTE auto = tipo_gas = '1' .
COMPUTE esp = tipo_gas = '2' .
COMPUTE reg = tipo_gas = '3' .
COMPUTE alq = tipo_gas = '0' .

COMPUTE dec_lev = NUMBER(SUBSTR(folio,7,1),f8) .

COMPUTE est_alq = alq * gas_tri / 3 .

COMPUTE gasnomon = gas_tri / 3 .
IF (alq = 1) gasnomon = 0 .

COMPUTE alimento = (clave >= 'a001' & clave < 'a219') | (clave >= 'a235' & clave < 'a240') .
COMPUTE a_dentro = (clave >= 'a001' & clave < 'a219') .
COMPUTE a_fuera = (clave >= 'a235' & clave < 'a240') .
COMPUTE alco_tab = (clave >= 'a219' & clave < 'a235') | (clave >= 'a240' & clave < 'a243') .
COMPUTE vestcalz = (clave >= 'h001' & clave < 'h091') | (clave >= 'h093' & clave < 'h133') .
COMPUTE vivienda = (clave >= 'g002' & clave < 'g006') | (clave >= 'g008' & clave < 'g016') | (clave >= 'g018' & clave < 'g021')
   | (clave >= 'g023' & clave < 'g031') | (clave >= 'g033' & clave < 'g048') .
COMPUTE pagoviv = (clave >= 'g008' & clave < 'g009') | (clave >= 'g012' & clave < 'g013') | (clave >= 'g033' & clave < 'g034') .
COMPUTE limpieza = (clave >= 'c001' & clave < 'c025') .
COMPUTE enseres = (clave >= 'k001' & clave < 'k037') .
COMPUTE cristal = (clave >= 'i001' & clave < 'i027') .
COMPUTE salud = (clave >= 'j001' & clave < 'j078') .
COMPUTE transpub = (clave >= 'b001' & clave < 'b008') .
COMPUTE transfor = (clave >= 'm001' & clave < 'm019') | (clave >= 'f010' & clave < 'f016') .
COMPUTE comunica = (clave >= 'f001' & clave < 'f010') .
COMPUTE edurecr = (clave >= 'e001' & clave < 'e036') | (clave >= 'h091' & clave < 'h093') | (clave >= 'l001' & clave < 'l031')
   | (clave >= 'n003' & clave < 'n006') .
COMPUTE educab = (clave >= 'e002' & clave < 'e004') | (clave >= 'h091' & clave < 'h093') .
COMPUTE educag = (clave >= 'e001' & clave < 'e021') | (clave >= 'h091' & clave < 'h093') .
COMPUTE recre = (clave >= 'e021' & clave < 'e036') | (clave >= 'l001' & clave < 'l031') | (clave >= 'n003' & clave < 'n006') .
COMPUTE cuidpers = (clave >= 'd001' & clave < 'd025') | (clave >= 'h142' & clave < 'h143') .
COMPUTE accpers = (clave >= 'h133' & clave < 'h142') | (clave >= 'h143' & clave < 'h144') .
COMPUTE otros = (clave >= 'n001' & clave < 'n003') | (clave >= 'n006' & clave < 'n017') | (clave >= 't101' & clave < 't105')
   | (clave >= 't902' & clave < 't915') .
COMPUTE regdados = (clave >= 'T101' & clave < 'T105') | (clave >= 'T902' & clave < 'T915') | (clave >= 'N013' & clave < 'N014') .
COMPUTE vivprop = clave >= 'G007' & clave < 'G008' .
COMPUTE vivrecib = clave >= 'G017' & clave < 'G018' .
COMPUTE vivprest = clave >= 'G022' & clave < 'G023' .
COMPUTE vivotra = clave >= 'G032' & clave < 'G033' .

*** Deflactores por rubro de no monetario según periodicidad  .


COMPUTE d11d1 = 1.0000000 .
COMPUTE d11d2 = 0.9985536 .
COMPUTE d11d3 = 1.0018526 .
COMPUTE d11d4 = 1.0144045 .

COMPUTE d12d1 = 1.0000000 .
COMPUTE d12d2 = 1.0002489.
COMPUTE d12d3 = 1.0097252 .
COMPUTE d12d4 = 1.0095759 .

COMPUTE d2t1 = 0.9951430 .
COMPUTE d2t2 = 0.9964074 .
COMPUTE d2t3 = 0.9987448 .
COMPUTE d2t4 = 1.0027894 .

COMPUTE d3m1 = 0.9955227. 
COMPUTE d3m2 = 1.0000000 .
COMPUTE d3m3 = 1.0068950 .
COMPUTE d3m4 = 1.0186554 .

COMPUTE d42m1 = 0.9983207 .
COMPUTE d42m2 = 1.0000000 .
COMPUTE d42m3 = 0.9968814 .
COMPUTE d42m4 = 0.9949622 .

COMPUTE d41s1 = 1.0009150 .
COMPUTE d41s2 = 0.9997571 .
COMPUTE d41s3 = 0.9985147 .
COMPUTE d41s4 = 0.9973873 .

COMPUTE d42t1 = 1.0008716 .
COMPUTE d42t2 = 0.9998103 .
COMPUTE d42t3 = 0.9984007 .
COMPUTE d42t4 = 0.9972812 .

COMPUTE d51t1 = 0.9908597 .
COMPUTE d51t2 = 0.9951418 .
COMPUTE d51t3 = 0.9994649 .
COMPUTE d51t4 = 1.0040329 .

COMPUTE d611d1 = 1.0000000 .
COMPUTE d611d2 = 1.0045775 .
COMPUTE d611d3 = 1.0051061 .
COMPUTE d611d4 = 1.0075395 .

COMPUTE d6s1 = 0.9945944 .
COMPUTE d6s2 = 0.9966507 .
COMPUTE d6s3 = 0.9983886 .
COMPUTE d6s4 = 0.9996654 .

COMPUTE d6m1 = 0.9995807 .
COMPUTE d6m2 = 1.0000000 .
COMPUTE d6m3 = 1.0008685 .
COMPUTE d6m4 = 1.0023958 .

COMPUTE d7m1 = 0.9929507 .
COMPUTE d7m2 = 1.0000000 .
COMPUTE d7m3 = 1.0318058 .
COMPUTE d7m4 = 1.0296505 .

COMPUTE d23m1 = 0.9938275 .
COMPUTE d23m2 = 1.0000000 .
COMPUTE d23m3 = 1.0070372 .
COMPUTE d23m4 = 1.0124443 .

COMPUTE d23t1 = 0.9893882 .
COMPUTE d23t2 = 0.9953617 .
COMPUTE d23t3 = 1.0002882 .
COMPUTE d23t4 = 1.0064939 .

COMPUTE dgs1 = 0.9870040 .
COMPUTE dgs2 = 0.9909726 .
COMPUTE dgs3 = 0.9951115 .
COMPUTE dgs4 = 0.9990962 .
*** .

IF (dec_lev <= 2 & alimento = 1) alimento = gas_tri / 3 / d11d1 . 
IF (dec_lev >= 3 & dec_lev <= 5 & alimento = 1) alimento = gas_tri / 3 / d11d2 . 
IF (dec_lev >= 6 & dec_lev <= 8 & alimento = 1) alimento = gas_tri / 3 / d11d3 . 
IF (dec_lev = 9 & alimento = 1) alimento = gas_tri / 3 / d11d4 . 

IF (dec_lev <= 2 & a_dentro = 1) a_dentro = gas_tri / 3 / d11d1 . 
IF (dec_lev >= 3 & dec_lev <= 5 & a_dentro = 1) a_dentro = gas_tri / 3 / d11d2 . 
IF (dec_lev >= 6 & dec_lev <= 8 & a_dentro = 1) a_dentro = gas_tri / 3 / d11d3 . 
IF (dec_lev = 9 & a_dentro = 1) a_dentro = gas_tri / 3 / d11d4 . 

IF (dec_lev <= 2 & a_fuera = 1) a_fuera = gas_tri / 3 / d11d1 . 
IF (dec_lev >= 3 & dec_lev <= 5 & a_fuera = 1) a_fuera = gas_tri / 3 / d11d2 . 
IF (dec_lev >= 6 & dec_lev <= 8 & a_fuera = 1) a_fuera = gas_tri / 3 / d11d3 . 
IF (dec_lev = 9 & a_fuera = 1) a_fuera = gas_tri / 3 / d11d4 . 

IF (dec_lev <= 2 & alco_tab = 1) alco_tab = gas_tri / 3 / d12d1 . 
IF (dec_lev >= 3 & dec_lev <= 5 & alco_tab = 1) alco_tab = gas_tri / 3 / d12d2 . 
IF (dec_lev >= 6 & dec_lev <= 8 & alco_tab = 1) alco_tab = gas_tri / 3 / d12d3 . 
IF (dec_lev = 9 & alco_tab = 1) alco_tab = gas_tri / 3 / d12d4 . 

IF (dec_lev <= 1 & vestcalz = 1) vestcalz = gas_tri / 3 / d2t1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & vestcalz = 1) vestcalz = gas_tri / 3 / d2t2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & vestcalz = 1) vestcalz = gas_tri / 3 / d2t3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & vestcalz = 1) vestcalz = gas_tri / 3 / d2t4 . 

IF (dec_lev <= 1 & vivienda = 1) vivienda = gas_tri / 3 / d3m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & vivienda = 1) vivienda = gas_tri / 3 / d3m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & vivienda = 1) vivienda = gas_tri / 3 / d3m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & vivienda = 1) vivienda = gas_tri / 3 / d3m4 . 

IF (dec_lev <= 1 & limpieza = 1) limpieza = gas_tri / 3 / d42m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & limpieza = 1) limpieza = gas_tri / 3 / d42m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & limpieza = 1) limpieza = gas_tri / 3 / d42m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & limpieza = 1) limpieza = gas_tri / 3 / d42m4 . 

IF (dec_lev <= 1 & enseres = 1) enseres = gas_tri / 3 / d41s1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & enseres = 1) enseres = gas_tri / 3 / d41s2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & enseres = 1) enseres = gas_tri / 3 / d41s3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & enseres = 1) enseres = gas_tri / 3 / d41s4 . 

IF (dec_lev <= 1 & cristal = 1) cristal = gas_tri / 3 / d42t1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & cristal = 1) cristal = gas_tri / 3 / d42t2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & cristal = 1) cristal = gas_tri / 3 / d42t3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & cristal = 1) cristal = gas_tri / 3 / d42t4 . 

IF (dec_lev <= 1 & salud = 1) salud = gas_tri / 3 / d51t1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & salud = 1) salud = gas_tri / 3 / d51t2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & salud = 1) salud = gas_tri / 3 / d51t3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & salud = 1) salud = gas_tri / 3 / d51t4 . 

IF (dec_lev <= 2 & transpub = 1) transpub = gas_tri / 3 / d611d1 . 
IF (dec_lev >= 3 & dec_lev <= 5 & transpub = 1) transpub = gas_tri / 3 / d611d2 . 
IF (dec_lev >= 6 & dec_lev <= 8 & transpub = 1) transpub = gas_tri / 3 / d611d3 . 
IF (dec_lev = 9 & transpub = 1) transpub = gas_tri / 3 / d611d4 . 

IF (dec_lev <= 1 & transfor = 1) transfor = gas_tri / 3 / d6s1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & transfor = 1) transfor = gas_tri / 3 / d6s2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & transfor = 1) transfor = gas_tri / 3 / d6s3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & transfor = 1) transfor = gas_tri / 3 / d6s4 . 

IF (dec_lev <= 1 & comunica = 1) comunica = gas_tri / 3 / d6m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & comunica = 1) comunica = gas_tri / 3 / d6m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & comunica = 1) comunica = gas_tri / 3 / d6m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & comunica = 1) comunica = gas_tri / 3 / d6m4 . 

IF (dec_lev <= 1 & edurecr = 1) edurecr = gas_tri / 3 / d7m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & edurecr = 1) edurecr = gas_tri / 3 / d7m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & edurecr = 1) edurecr = gas_tri / 3 / d7m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & edurecr = 1) edurecr = gas_tri / 3 / d7m4 . 

IF (dec_lev <= 1 & educab = 1) educab = gas_tri / 3 / d7m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & educab = 1) educab = gas_tri / 3 / d7m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & educab = 1) educab = gas_tri / 3 / d7m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & educab = 1) educab = gas_tri / 3 / d7m4 . 

IF (dec_lev <= 1 & educag = 1) educag = gas_tri / 3 / d7m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & educag = 1) educag = gas_tri / 3 / d7m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & educag = 1) educag = gas_tri / 3 / d7m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & educag = 1) educag = gas_tri / 3 / d7m4 . 

IF (dec_lev <= 1 & recre = 1) recre = gas_tri / 3 / d7m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & recre = 1) recre = gas_tri / 3 / d7m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & recre = 1) recre = gas_tri / 3 / d7m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & recre = 1) recre = gas_tri / 3 / d7m4 . 

IF (dec_lev <= 1 & cuidpers = 1) cuidpers = gas_tri / 3 / d23m1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & cuidpers = 1) cuidpers = gas_tri / 3 / d23m2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & cuidpers = 1) cuidpers = gas_tri / 3 / d23m3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & cuidpers = 1) cuidpers = gas_tri / 3 / d23m4 . 

IF (dec_lev <= 1 & accpers = 1) accpers = gas_tri / 3 / d23t1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & accpers = 1) accpers = gas_tri / 3 / d23t2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & accpers = 1) accpers = gas_tri / 3 / d23t3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & accpers = 1) accpers = gas_tri / 3 / d23t4 . 

IF (dec_lev <= 1 & otros = 1) otros = gas_tri / 3 / dgs1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & otros = 1) otros = gas_tri / 3 / dgs2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & otros = 1) otros = gas_tri / 3 / dgs3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & otros = 1) otros = gas_tri / 3 / dgs4 . 

IF (dec_lev <= 1 & regdados = 1) regdados = gas_tri / 3 / dgs1 . 
IF (dec_lev >= 2 & dec_lev <= 4 & regdados = 1) regdados = gas_tri / 3 / dgs2 . 
IF (dec_lev >= 5 & dec_lev <= 7 & regdados = 1) regdados = gas_tri / 3 / dgs3 . 
IF (dec_lev >= 8 & dec_lev <= 9 & regdados = 1) regdados = gas_tri / 3 / dgs4 . 

COMPUTE vivprop = vivprop * gas_tri / 3 .
COMPUTE vivrecib =  vivrecib * gas_tri / 3 .
COMPUTE vivprest =  vivprest * gas_tri / 3 .
COMPUTE vivotra =  vivotra * gas_tri / 3 .

SAVE OUTFILE='C:\ENIGH\Comite\Pobreza 2002\nomon_15var.sav'
   /COMPRESSED.

***Construcción de Base de Autoconsumo a partir de la Base No Monetaria .

FILTER OFF.
USE ALL.
SELECT IF(auto = 1).
EXECUTE .
AGGREGATE
  /OUTFILE='C:\ENIGH\Comite\Pobreza 2002\nomon_auto15var.SAV'
  /BREAK=folio
  /gasnomo2 = SUM(gasnomon) /aliment2 = SUM(alimento) /a_dentr2 = SUM(a_dentro) /a_fuera2 = SUM(a_fuera) /alcotab2 = SUM(alco_tab)
  /vestcal2 = SUM(vestcalz) /viviend2 = SUM(vivienda) /limpiez2 =
  SUM(limpieza) /enseres2 = SUM(enseres) /cristal2 = SUM(cristal) /salud2 =
  SUM(salud) /transpu2 = SUM(transpub) /transfo2 =
  SUM(transfor) /comunic2 = SUM(comunica) /edurecr2 = SUM(edurecr) /educab2 = SUM(educab) /educag2 = SUM(educag) /recre2 = SUM(recre) /cuidper2 =
  SUM(cuidpers) /accpers2 = SUM(accpers) /otros2 = SUM(otros) /regdado2 =
  SUM(regdados).


***Construcción de Base de Pagos en Especie a partir de la Base No Monetaria .


GET
  FILE='C:\ENIGH\Comite\Pobreza 2002\nomon_15var.sav'.
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(esp = 1).
EXECUTE .
AGGREGATE
  /OUTFILE='C:\ENIGH\Comite\Pobreza 2002\nomon_esp15var.SAV'
  /BREAK=folio
  /gasnomo3 = SUM(gasnomon) /aliment3 = SUM(alimento) /a_dentr3 = SUM(a_dentro) /a_fuera3 = SUM(a_fuera) /alcotab3 = SUM(alco_tab)
  /vestcal3 = SUM(vestcalz) /viviend3 = SUM(vivienda) /limpiez3 =
  SUM(limpieza) /enseres3 = SUM(enseres) /cristal3 = SUM(cristal) /salud3 =
  SUM(salud) /transpu3 = SUM(transpub) /transfo3 =
  SUM(transfor) /comunic3 = SUM(comunica) /edurecr3 = SUM(edurecr) /educab3 = SUM(educab) /educag3 = SUM(educag) /recre3 = SUM(recre) /cuidper3 =
  SUM(cuidpers) /accpers3 = SUM(accpers) /otros3 = SUM(otros) /regdado3 =
  SUM(regdados).

***Construcción de Base de Regalos a partir de la Base No Monetaria .


GET
  FILE='C:\ENIGH\Comite\Pobreza 2002\nomon_15var.sav'.
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(reg = 1 | alq = 1).
EXECUTE .
AGGREGATE
  /OUTFILE='C:\ENIGH\Comite\Pobreza 2002\nomon_reg15var.SAV'
  /BREAK=folio
  /gasnomo4 = SUM(gasnomon) /aliment4 = SUM(alimento) /a_dentr4 = SUM(a_dentro) /a_fuera4 = SUM(a_fuera) /alcotab4 = SUM(alco_tab)
  /vestcal4 = SUM(vestcalz) /viviend4 = SUM(vivienda) /limpiez4 =
  SUM(limpieza) /enseres4 = SUM(enseres) /cristal4 = SUM(cristal) /salud4 =
  SUM(salud) /transpu4 = SUM(transpub) /transfo4 =
  SUM(transfor) /comunic4 = SUM(comunica) /edurecr4 = SUM(edurecr) /educab4 = SUM(educab) /educag4 = SUM(educag) /recre4 = SUM(recre) /cuidper4 =
  SUM(cuidpers) /accpers4 = SUM(accpers) /otros4 = SUM(otros) /regdado4 =
  SUM(regdados) /est_alq = SUM(est_alq) /vivprop = SUM(vivprop) /vivrecib = SUM(vivrecib) /vivprest = SUM(vivprest) /vivotra = SUM(vivotra) .