*** PARTE 1
*** ESTE PROGRAMA DEBE SER UTILIZADO CON EL SOFTWARE STATA
*** Cálculos realizados con base en la Metodología sugerida por el Comité Técnico para la Medición de la Pobreza.
*** PROGRAMA PARA MEDIR LA POBREZA EN MEXICO 2002
*** Sugerencias y dudas sobre el programa o construcción de la canasta alimentaria comunicarse con: 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 .
**********************************************************************************************************************************************************************************
set mem 400m
set matsize 350
set more off
clear

***  Se crea el ingreso monetario deflactado a agosto de 2002

use "C:\ENIGH\Dataorg\ENIGH2002\Stata\ingres02.dta", clear
gen str12 id_hogar=substr(folio,1,12)
drop folio
rename id_hogar folio
gen str1 cla=substr(clave,1,1)
gen clave1=real(substr(clave,2,3))

gen str2 ultmes=substr(meses,1,2)
tab ultmes
gen umes=real(ultmes)

rename ing_1 ing1
rename ing_2 ing2
rename ing_3 ing3
rename ing_4 ing4
rename ing_5 ing5
rename ing_6 ing6

gen double ing1d=ing1/0.9962122 if umes==7
replace ing1d=ing1/1 if umes==8
replace ing1d=ing1/1.0060148 if umes==9
replace ing1d=ing1/1.0104489 if umes==10
gen double ing2d=ing2/0.9933605 if umes==7
replace ing2d=ing2/0.9962122 if umes==8
replace ing2d=ing2/1 if umes==9
replace ing2d=ing2/1.0060148 if umes==10
gen double ing3d=ing3/0.9885406 if umes==7
replace ing3d=ing3/0.9933605 if umes==8
replace ing3d=ing3/0.9962122 if umes==9
replace ing3d=ing3/1 if umes==10
gen double ing4d=ing4/0.9865411 if umes==7
replace ing4d=ing4/0.9885406 if umes==8
replace ing4d=ing4/0.9933605 if umes==9
replace ing4d=ing4/0.9962122 if umes==10
gen double ing5d=ing5/0.9811814 if umes==7
replace ing5d=ing5/0.9865411 if umes==8
replace ing5d=ing5/0.9885406 if umes==9
replace ing5d=ing5/0.9933605 if umes==10
gen double ing6d=ing6/0.9761880 if umes==7
replace ing6d=ing6/0.9811814 if umes==8
replace ing6d=ing6/0.9865411 if umes==9
replace ing6d=ing6/0.9885406 if umes==10

egen double ingr=rsum(ing1d-ing6d) 
gen  double ingmens=ingr/6 
gen  double ingmonn=ingmens if (cla=="P" & (clave1>=1 & clave1<48))
gen  double perceps=ingmens if (cla=="P" & (clave1>=49 & clave1<66))
gen double otrings=ingmens if (cla=="P" & (clave1>=48 & clave1<49))
gen double regrecibs=ingmens if (cla=="P" & (clave1==44)) 
sort folio 
collapse (sum) ingmonn otrings perceps regrecibs, by(folio)
save "C:\ENIGH\Comite\Pobreza 2002\Data_Stata\ingmon02def.dta", replace

***  Se crea el gasto monetario deflactado a agosto de 2002

use "C:\ENIGH\Dataorg\ENIGH2002\Stata\gasto02.dta", clear
gen str12 id_hogar=substr(folio,1,12)
drop folio
rename id_hogar folio
gen dec_lev=real(substr(folio,7,1))
gen str1 cla=substr(clave,1,1)
gen clave1=real(substr(clave,2,3))
drop if (cla=="G" & clave1==1)
drop if (cla=="K" & (clave1>=37 & clave1<45))
drop if cla=="Q"
drop if (cla=="T" & (clave1>=1 & clave1<101))
drop if (cla=="T" & (clave1==915))
gen alimento=1 if (cla=="A" & (clave1>=1 & clave1<219) | (clave1>=235 & clave1<240))
gen alco_tab=1 if (cla=="A" & (clave1>=219 & clave1<235) | (clave1>=240 & clave1<243))
gen vestcalz=1 if (cla=="H" & (clave1>=1 & clave1<91)) 
replace vestcalz=1 if (cla=="H" & (clave1>=93  & clave1<=132))
gen vivienda=1 if (cla=="G" & (clave1>=2 & clave1<6)) 
replace vivienda=1 if (cla=="G" & (clave1>=8 & clave1<16)) 
replace vivienda=1 if (cla=="G" & (clave1>=18 & clave1<21))
replace vivienda=1 if (cla=="G" & (clave1>=23 & clave1<31)) 
replace vivienda=1 if (cla=="G" & (clave1>=33 & clave1<48))
gen limpieza=1 if cla=="C"
gen cristal=1 if cla=="I"
gen enseres=1 if cla=="K" 
gen salud=1 if cla=="J"
gen transpub=1 if cla=="B"
gen transfor=1 if (cla=="M" & (clave1>=1 & clave1<19))
replace transfor=1 if (cla=="F" & (clave1>=10 & clave1<=15))
gen comunica=1 if (cla=="F" & (clave1>=1 & clave1<=9))
gen edurecr=1 if cla=="E" 
replace edurecr=1 if (cla=="H" & (clave1>=91 & clave1<93))
replace edurecr=1 if cla=="L" 
replace edurecr=1 if (cla=="N" & (clave1>=3  & clave1<6))
gen educab=1 if (cla=="E" & (clave1>=2 & clave1<4) | (cla=="H" & (clave1>=91 & clave1<93)))
gen cuidpers=1 if cla=="D"   |  (clave=="H142")
gen accpers=1 if cla=="H" & (clave1>=133 & clave1<142) | (clave=="H143")
gen otros=1 if (cla=="N" & (clave1>=1 & clave1<=2))
replace otros=1 if (cla=="N" &(clave1>=6 & clave1<17))
replace otros=1 if (cla=="T" & (clave1>=101 & clave1<105))
replace otros=1 if (cla=="T" & (clave1>=902 & clave1<915))
gen regdados=1 if (cla=="T" & (clave1>=101 & clave1<=104))
replace regdados=1 if (cla=="T" & (clave1>=902 & clave1<=914))
replace regdados=1 if (cla=="N" & clave1==13)
gen double gasm=gas_tri/3
rename dec_lev decena

*****Rubro 1 (semanal): Alimentos consumidos dentro (sin tomar en cuenta bebidas alcohólicas) y fuera del hogar
gen alimentom=gasm/1 if alimento==1 & decena==1
replace alimentom=gasm/1 if alimento==1 & decena==2
replace alimentom=gasm/0.9985536 if alimento==1 & decena==3
replace alimentom=gasm/0.9985536 if alimento==1 & decena==4
replace alimentom=gasm/0.9985536 if alimento==1 & decena==5
replace alimentom=gasm/1.0018526 if alimento==1 & decena==6
replace alimentom=gasm/1.0018526 if alimento==1 & decena==7
replace alimentom=gasm/1.0018526 if alimento==1 & decena==8
replace alimentom=gasm/1.0144045 if alimento==1 & decena==9
*****Rubro 2 (semanal): Bebidas alcohólicas y tabaco
gen alco_tabm=gasm/1 if alco_tab==1 & decena==1
replace alco_tabm=gasm/1 if alco_tab==1 & decena==2
replace alco_tabm=gasm/1.0002489 if alco_tab==1 & decena==3
replace alco_tabm=gasm/1.0002489 if alco_tab==1 & decena==4
replace alco_tabm=gasm/1.0002489 if alco_tab==1 & decena==5
replace alco_tabm=gasm/1.0097252 if alco_tab==1 & decena==6
replace alco_tabm=gasm/1.0097252 if alco_tab==1 & decena==7
replace alco_tabm=gasm/1.0097252 if alco_tab==1 & decena==8
replace alco_tabm=gasm/1.0095759 if alco_tab==1 & decena==9
*****Rubro 3 (trimestral): Vestido y Calzado
gen  vestcalzm=gasm/0.9951430 if vestcalz==1 & decena==1
replace vestcalzm=gasm/0.9964074 if vestcalz==1 & decena==2
replace vestcalzm=gasm/0.9964074 if vestcalz==1 & decena==3
replace vestcalzm=gasm/0.9964074 if vestcalz==1 & decena==4
replace vestcalzm=gasm/0.9987448 if vestcalz==1 & decena==5
replace vestcalzm=gasm/0.9987448 if vestcalz==1 & decena==6
replace vestcalzm=gasm/0.9987448 if vestcalz==1 & decena==7
replace vestcalzm=gasm/1.0027894 if vestcalz==1 & decena==8
replace vestcalzm=gasm/1.0027894 if vestcalz==1 & decena==9
*****Rubro 4 (mensual): Vivienda, servicio de conservación, energía eléctrica y combustible
gen   viviendam=gasm/0.9955227 if vivienda==1 & decena==1
replace viviendam=gasm/1 if vivienda==1 & decena==2
replace viviendam=gasm/1 if vivienda==1 & decena==3
replace viviendam=gasm/1 if vivienda==1 & decena==4
replace viviendam=gasm/1.0068950 if vivienda==1 & decena==5
replace viviendam=gasm/1.0068950 if vivienda==1 & decena==6
replace viviendam=gasm/1.0068950 if vivienda==1 & decena==7
replace viviendam=gasm/1.0186554 if vivienda==1 & decena==8
replace viviendam=gasm/1.0186554 if vivienda==1 & decena==9
*****Rubro 5 (mensual): Artículos de limpieza: Artículos y servicios de limpieza
gen  limpiezam=gasm/0.9983207 if limpieza==1 & decena==1
replace limpiezam=gasm/1 if limpieza==1 & decena==2
replace limpiezam=gasm/1 if limpieza==1 & decena==3
replace limpiezam=gasm/1 if limpieza==1 & decena==4
replace limpiezam=gasm/0.9968814 if limpieza==1 & decena==5
replace limpiezam=gasm/0.9968814 if limpieza==1 & decena==6
replace limpiezam=gasm/0.9968814 if limpieza==1 & decena==7
replace limpiezam=gasm/0.9949622 if limpieza==1 & decena==8
replace limpiezam=gasm/0.9949622 if limpieza==1 & decena==9
*****Rubro 6 (trimestral): Artículos de limpieza: Cristalería, utensilios domésticos y blancos
gen cristalm=gasm/1.0008716 if cristal==1 & decena==1
replace cristalm=gasm/0.9998103 if cristal==1 & decena==2
replace cristalm=gasm/0.9998103 if cristal==1 & decena==3
replace cristalm=gasm/0.9998103 if cristal==1 & decena==4
replace cristalm=gasm/0.9984007 if cristal==1 & decena==5
replace cristalm=gasm/0.9984007 if cristal==1 & decena==6
replace cristalm=gasm/0.9984007 if cristal==1 & decena==7
replace cristalm=gasm/0.9972812 if cristal==1 & decena==8
replace cristalm=gasm/0.9972812 if cristal==1 & decena==9
*****Rubro 7 (semestral): Artículos de limpieza: enseres domésticos y muebles
gen  enseresm=gasm/1.0009150  if enseres==1 & decena==1
replace enseresm=gasm/0.9997571 if enseres==1 & decena==2
replace enseresm=gasm/0.9997571 if enseres==1 & decena==3
replace enseresm=gasm/0.9997571 if enseres==1 & decena==4
replace enseresm=gasm/0.9985147  if enseres==1 & decena==5
replace enseresm=gasm/0.9985147  if enseres==1 & decena==6
replace enseresm=gasm/0.9985147  if enseres==1 & decena==7
replace enseresm=gasm/0.9973873 if enseres==1 & decena==8
replace enseresm=gasm/0.9973873 if enseres==1 & decena==9
*****Rubro 8 (trimestral): Salud
gen  saludm=gasm/0.9908597 if salud==1 & decena==1
replace saludm=gasm/0.9951418 if salud==1 & decena==2
replace saludm=gasm/0.9951418 if salud==1 & decena==3
replace saludm=gasm/0.9951418 if salud==1 & decena==4
replace saludm=gasm/0.9994649 if salud==1 & decena==5
replace saludm=gasm/0.9994649 if salud==1 & decena==6
replace saludm=gasm/0.9994649 if salud==1 & decena==7
replace saludm=gasm/1.0040329 if salud==1 & decena==8
replace saludm=gasm/1.0040329 if salud==1 & decena==9
*****Rubro 9 (semanal): Transporte Público
gen transpubm=gasm/1 if transpub==1 & decena==1
replace transpubm=gasm/1 if transpub==1 & decena==2
replace transpubm=gasm/1.0045775 if transpub==1 & decena==3
replace transpubm=gasm/1.0045775 if transpub==1 & decena==4
replace transpubm=gasm/1.0045775 if transpub==1 & decena==5
replace transpubm=gasm/1.0051061 if transpub==1 & decena==6
replace transpubm=gasm/1.0051061 if transpub==1 & decena==7
replace transpubm=gasm/1.0051061 if transpub==1 & decena==8
replace transpubm=gasm/1.0075395 if transpub==1 & decena==9
*****Rubro 10 (semestral): Transporte foráneo, aereo y otros tipos de transporte: adquisición de vehículos y mantenimiento de vehículos, refacciones y partes
gen transform=gasm/0.9945944 if transfor==1 & decena==1
replace transform=gasm/0.9966507 if transfor==1 & decena==2
replace transform=gasm/0.9966507 if transfor==1 & decena==3
replace transform=gasm/0.9966507 if transfor==1 & decena==4
replace transform=gasm/0.9983886 if transfor==1 & decena==5
replace transform=gasm/0.9983886 if transfor==1 & decena==6
replace transform=gasm/0.9983886 if transfor==1 & decena==7
replace transform=gasm/0.9996654 if transfor==1 & decena==8
replace transform=gasm/0.9996654 if transfor==1 & decena==9
*****Rubro 11 (mensual): Comunicaciones: telefono, fax
gen comunicam=gasm/0.9995807 if comunica==1 & decena==1
replace comunicam=gasm/1 if comunica==1 & decena==2
replace comunicam=gasm/1 if comunica==1 & decena==3
replace comunicam=gasm/1 if comunica==1 & decena==4
replace comunicam=gasm/1.0008685 if comunica==1 & decena==5
replace comunicam=gasm/1.0008685 if comunica==1 & decena==6
replace comunicam=gasm/1.0008685 if comunica==1 & decena==7
replace comunicam=gasm/1.0023958 if comunica==1 & decena==8
replace comunicam=gasm/1.0023958 if comunica==1 & decena==9
*****Rubro 12 (mensual): Educación y esparcimiento****
gen edurecrm=gasm/0.9929507 if edurecr==1 & decena==1
replace edurecrm=gasm/1 if edurecr==1 & decena==2
replace edurecrm=gasm/1 if edurecr==1 & decena==3
replace edurecrm=gasm/1 if edurecr==1 & decena==4
replace edurecrm=gasm/1.0318058 if edurecr==1 & decena==5
replace edurecrm=gasm/1.0318058 if edurecr==1 & decena==6
replace edurecrm=gasm/1.0318058 if edurecr==1 & decena==7
replace edurecrm=gasm/1.0296505 if edurecr==1 & decena==8
replace edurecrm=gasm/1.0296505 if edurecr==1 & decena==9
gen  educabm=gasm/0.9929507 if educab==1 & decena==1
replace educabm=gasm/1 if educab==1 & decena==2
replace educabm=gasm/1 if educab==1 & decena==3
replace educabm=gasm/1 if educab==1 & decena==4
replace educabm=gasm/1.0318058 if educab==1 & decena==5
replace educabm=gasm/1.0318058 if educab==1 & decena==6
replace educabm=gasm/1.0318058 if educab==1 & decena==7
replace educabm=gasm/1.0296505 if educab==1 & decena==8
replace educabm=gasm/1.0296505 if educab==1 & decena==9
*****Rubro 13 (mensual): Artículos y servicios para el cuidado personal
gen  cuidpersm=gasm/0.9938275 if cuidpers==1 & decena==1
replace cuidpersm=gasm/1 if cuidpers==1 & decena==2
replace cuidpersm=gasm/1 if cuidpers==1 & decena==3
replace cuidpersm=gasm/1 if cuidpers==1 & decena==4
replace cuidpersm=gasm/1.0070372 if cuidpers==1 & decena==5
replace cuidpersm=gasm/1.0070372 if cuidpers==1 & decena==6
replace cuidpersm=gasm/1.0070372 if cuidpers==1 & decena==7
replace cuidpersm=gasm/1.0124443 if cuidpers==1 & decena==8
replace cuidpersm=gasm/1.0124443 if cuidpers==1 & decena==9
*****Rubro 14 (trimestral): Accesorios y efectos personales
gen  accpersm=gasm/0.9893882 if accpers==1 & decena==1
replace accpersm=gasm/0.9953617 if accpers==1 & decena==2
replace accpersm=gasm/0.9953617 if accpers==1 & decena==3
replace accpersm=gasm/0.9953617 if accpers==1 & decena==4
replace accpersm=gasm/1.0002882 if accpers==1 & decena==5
replace accpersm=gasm/1.0002882 if accpers==1 & decena==6
replace accpersm=gasm/1.0002882 if accpers==1 & decena==7
replace accpersm=gasm/1.0064939 if accpers==1 & decena==8
replace accpersm=gasm/1.0064939 if accpers==1 & decena==9
*****Rubro 15 (semestral): Otros gastos diversos y transferencias
gen  otrosm=gasm/0.9870040 if otros==1 & decena==1
replace otrosm=gasm/0.9909726 if otros==1 & decena==2
replace otrosm=gasm/0.9909726 if otros==1 & decena==3
replace otrosm=gasm/0.9909726 if otros==1 & decena==4
replace otrosm=gasm/0.9951115 if otros==1 & decena==5
replace otrosm=gasm/0.9951115 if otros==1 & decena==6
replace otrosm=gasm/0.9951115 if otros==1 & decena==7
replace otrosm=gasm/0.9990962 if otros==1 & decena==8
replace otrosm=gasm/0.9990962 if otros==1 & decena==9
*** Regalos
gen  regdadosm=gasm/0.9870040 if regdados==1 & decena==1
replace regdadosm=gasm/0.9909726 if regdados==1 & decena==2
replace regdadosm=gasm/0.9909726 if regdados==1 & decena==3
replace regdadosm=gasm/0.9909726 if regdados==1 & decena==4
replace regdadosm=gasm/0.9951115 if regdados==1 & decena==5
replace regdadosm=gasm/0.9951115 if regdados==1 & decena==6
replace regdadosm=gasm/0.9951115 if regdados==1 & decena==7
replace regdadosm=gasm/0.9990962 if regdados==1 & decena==8
replace regdadosm=gasm/0.9990962 if regdados==1 & decena==9
sort folio

collapse (sum) gasm alimentom alco_tabm vestcalzm viviendam limpiezam enseresm cristalm saludm transpubm transform comunicam edurecrm educabm cuidpersm accpersm otrosm regdadosm, by (folio)
save "C:\ENIGH\Comite\Pobreza 2002\Data_Stata\gasmon02def.dta", replace
*********************************************************************************************************************************
clear
***  Se crea el ingreso-gasto no monetario deflactado a agosto de 2002 

use "C:\ENIGH\Dataorg\ENIGH2002\Stata\nomon02.dta", clear
gen str12 id_hogar=substr(folio,1,12)
drop folio
rename id_hogar folio
keep folio tipo_gas clave gas_tri
gen dec_lev=real(substr(folio,7,1))
drop if tipo_gas=="4"
destring tipo_gas, replace
gen auto=1 if tipo_gas==1
gen esp=1 if tipo_gas==2
gen reg=1 if tipo_gas==3
gen alq=1 if tipo_gas==0
gen double est_alq=(alq*gas_tri)/3
gen double gasnomon=gas_tri/3
replace gasnomon=0 if alq==1
gen str1 cla=substr(clave,1,1)
gen clave1=real(substr(clave,2,3))
drop if (cla=="G" & clave1==1)
drop if (cla=="G" & clave1==6)
drop if (cla=="G" & clave1==16)
drop if (cla=="G" & clave1==21)
drop if (cla=="G" & clave1==31)
drop if (cla=="K" & (clave1>=37 & clave1<45))
drop if cla=="Q"
drop if (cla=="T" & clave1==915)
gen alimento=1 if (cla=="A" & (clave1>=1 & clave1<219) | (clave1>=235 & clave1<240))
gen alco_tab=1 if (cla=="A" & (clave1>=219 & clave1<235) | (clave1>=240 & clave1<243))
gen vestcalz=1 if (cla=="H" & (clave1>=1 & clave1<91)) 
replace vestcalz=1 if (cla=="H" & (clave1>=93  & clave1<=132))
gen vivienda=1 if (cla=="G" & (clave1>=2 & clave1<6)) 
replace vivienda=1 if (cla=="G" & (clave1>=8 & clave1<16)) 
replace vivienda=1 if (cla=="G" & (clave1>=18 & clave1<21))
replace vivienda=1 if (cla=="G" & (clave1>=23 & clave1<31)) 
replace vivienda=1 if (cla=="G" & (clave1>=33 & clave1<48))
gen limpieza=1 if cla=="C"
gen cristal=1 if cla=="I"
gen enseres=1 if cla=="K" 
gen salud=1 if cla=="J"
gen transpub=1 if cla=="B"
gen transfor=1 if (cla=="M" & (clave1>=1 & clave1<19))
replace transfor=1 if (cla=="F" & (clave1>=10 & clave1<=15))
gen comunica=1 if (cla=="F" & (clave1>=1 & clave1<10))
gen edurecr=1 if cla=="E" 
replace edurecr=1 if (cla=="H" & (clave1>=91 & clave1<93))
replace edurecr=1 if cla=="L" 
replace edurecr=1 if (cla=="N" & (clave1>=3  & clave1<6))
gen educab=1 if (cla=="E" & (clave1>=2 & clave1<4) | (cla=="H" & (clave1>=91 & clave1<93)))
gen cuidpers=1 if cla=="D"   |  (clave=="H142")
gen accpers=1 if cla=="H" & (clave1>=133 & clave1<142) | (clave=="H143")
gen otros=1 if (cla=="N" & (clave1>=1 & clave1<=2))
replace otros=1 if (cla=="N" &(clave1>=6 & clave1<17))
replace otros=1 if (cla=="T" & (clave1>=101 & clave1<105))
replace otros=1 if (cla=="T" & (clave1>=902 & clave1<915))
gen regdados=1 if (cla=="T" & (clave1>=101 & clave1<=104))
replace regdados=1 if (cla=="T" & (clave1>=902 & clave1<=914))
replace regdados=1 if (cla=="N" & clave1==13)
gen vivprob=1 if (clave=="G007")
gen vivrecib=1 if (clave=="G017")
gen vivprest=1 if (clave=="G022")
gen vivotra=1 if (clave=="G032")

rename dec_lev decena

*****Rubro 1 (semanal): Alimentos consumidos dentro (sin tomar en cuenta bebidas alcohólicas) y fuera del hogar
gen alimenton=gasnomon/1 if alimento==1 & decena==1
replace alimenton=gasnomon/1 if alimento==1 & decena==2
replace alimenton=gasnomon/0.9985536 if alimento==1 & decena==3
replace alimenton=gasnomon/0.9985536 if alimento==1 & decena==4
replace alimenton=gasnomon/0.9985536 if alimento==1 & decena==5
replace alimenton=gasnomon/1.0018526 if alimento==1 & decena==6
replace alimenton=gasnomon/1.0018526 if alimento==1 & decena==7
replace alimenton=gasnomon/1.0018526 if alimento==1 & decena==8
replace alimenton=gasnomon/1.0144045 if alimento==1 & decena==9
*****Rubro 2 (semanal): Bebidas alcohólicas y tabaco
gen alco_tabn=gasnomon/1 if alco_tab==1 & decena==1
replace alco_tabn=gasnomon/1 if alco_tab==1 & decena==2
replace alco_tabn=gasnomon/1.0002489 if alco_tab==1 & decena==3
replace alco_tabn=gasnomon/1.0002489 if alco_tab==1 & decena==4
replace alco_tabn=gasnomon/1.0002489 if alco_tab==1 & decena==5
replace alco_tabn=gasnomon/1.0097252 if alco_tab==1 & decena==6
replace alco_tabn=gasnomon/1.0097252 if alco_tab==1 & decena==7
replace alco_tabn=gasnomon/1.0097252 if alco_tab==1 & decena==8
replace alco_tabn=gasnomon/1.0095759 if alco_tab==1 & decena==9
*****Rubro 3 (trimestral): Vestido y Calzado
gen  vestcalzn=gasnomon/0.9951430 if vestcalz==1 & decena==1
replace vestcalzn=gasnomon/0.9964074 if vestcalz==1 & decena==2
replace vestcalzn=gasnomon/0.9964074 if vestcalz==1 & decena==3
replace vestcalzn=gasnomon/0.9964074 if vestcalz==1 & decena==4
replace vestcalzn=gasnomon/0.9987448 if vestcalz==1 & decena==5
replace vestcalzn=gasnomon/0.9987448 if vestcalz==1 & decena==6
replace vestcalzn=gasnomon/0.9987448 if vestcalz==1 & decena==7
replace vestcalzn=gasnomon/1.0027894 if vestcalz==1 & decena==8
replace vestcalzn=gasnomon/1.0027894 if vestcalz==1 & decena==9
*****Rubro 4 (mensual): Vivienda, servicio de conservación, energía eléctrica y combustible
gen viviendan=gasnomon/0.9955227 if vivienda==1 & decena==1
replace viviendan=gasnomon/1 if vivienda==1 & decena==2
replace viviendan=gasnomon/1 if vivienda==1 & decena==3
replace viviendan=gasnomon/1 if vivienda==1 & decena==4
replace viviendan=gasnomon/1.0068950 if vivienda==1 & decena==5
replace viviendan=gasnomon/1.0068950 if vivienda==1 & decena==6
replace viviendan=gasnomon/1.0068950 if vivienda==1 & decena==7
replace viviendan=gasnomon/1.0186554 if vivienda==1 & decena==8
replace viviendan=gasnomon/1.0186554 if vivienda==1 & decena==9
*****Rubro 5 (mensual): Artículos de limpieza: Artículos y servicios de limpieza
gen limpiezan=gasnomon/0.9983207 if limpieza==1 & decena==1
replace limpiezan=gasnomon/1 if limpieza==1 & decena==2
replace limpiezan=gasnomon/1 if limpieza==1 & decena==3
replace limpiezan=gasnomon/1 if limpieza==1 & decena==4
replace limpiezan=gasnomon/0.9968814 if limpieza==1 & decena==5
replace limpiezan=gasnomon/0.9968814 if limpieza==1 & decena==6
replace limpiezan=gasnomon/0.9968814 if limpieza==1 & decena==7
replace limpiezan=gasnomon/0.9949622 if limpieza==1 & decena==8
replace limpiezan=gasnomon/0.9949622 if limpieza==1 & decena==9
*****Rubro 6 (trimestral): Artículos de limpieza: Cristalería, utensilios domésticos y blancos
gen cristaln=gasnomon/1.0008716 if cristal==1 & decena==1
replace cristaln=gasnomon/0.9998103 if cristal==1 & decena==2
replace cristaln=gasnomon/0.9998103 if cristal==1 & decena==3
replace cristaln=gasnomon/0.9998103 if cristal==1 & decena==4
replace cristaln=gasnomon/0.9984007 if cristal==1 & decena==5
replace cristaln=gasnomon/0.9984007 if cristal==1 & decena==6
replace cristaln=gasnomon/0.9984007 if cristal==1 & decena==7
replace cristaln=gasnomon/0.9972812 if cristal==1 & decena==8
replace cristaln=gasnomon/0.9972812 if cristal==1 & decena==9
*****Rubro 7 (semestral): Artículos de limpieza: enseres domésticos y muebles
gen enseresn=gasnomon/1.0009150  if enseres==1 & decena==1
replace enseresn=gasnomon/0.9997571 if enseres==1 & decena==2
replace enseresn=gasnomon/0.9997571 if enseres==1 & decena==3
replace enseresn=gasnomon/0.9997571 if enseres==1 & decena==4
replace enseresn=gasnomon/0.9985147  if enseres==1 & decena==5
replace enseresn=gasnomon/0.9985147  if enseres==1 & decena==6
replace enseresn=gasnomon/0.9985147  if enseres==1 & decena==7
replace enseresn=gasnomon/0.9973873 if enseres==1 & decena==8
replace enseresn=gasnomon/0.9973873 if enseres==1 & decena==9
*****Rubro 8 (trimestral): Salud
gen  saludn=gasnomon/0.9908597 if salud==1 & decena==1
replace saludn=gasnomon/0.9951418 if salud==1 & decena==2
replace saludn=gasnomon/0.9951418 if salud==1 & decena==3
replace saludn=gasnomon/0.9951418 if salud==1 & decena==4
replace saludn=gasnomon/0.9994649 if salud==1 & decena==5
replace saludn=gasnomon/0.9994649 if salud==1 & decena==6
replace saludn=gasnomon/0.9994649 if salud==1 & decena==7
replace saludn=gasnomon/1.0040329 if salud==1 & decena==8
replace saludn=gasnomon/1.0040329 if salud==1 & decena==9
*****Rubro 9 (semanal): Transporte Público
gen  transpubn=gasnomon/1 if transpub==1 & decena==1
replace transpubn=gasnomon/1 if transpub==1 & decena==2
replace transpubn=gasnomon/1.0045775 if transpub==1 & decena==3
replace transpubn=gasnomon/1.0045775 if transpub==1 & decena==4
replace transpubn=gasnomon/1.0045775 if transpub==1 & decena==5
replace transpubn=gasnomon/1.0051061 if transpub==1 & decena==6
replace transpubn=gasnomon/1.0051061 if transpub==1 & decena==7
replace transpubn=gasnomon/1.0051061 if transpub==1 & decena==8
replace transpubn=gasnomon/1.0075395 if transpub==1 & decena==9
*****Rubro 10 (semestral): Transporte foráneo, aereo y otros tipos de transporte: adquisición de vehículos y mantenimiento de vehículos, refacciones y partes
gen  transforn=gasnomon/0.9945944 if transfor==1 & decena==1
replace transforn=gasnomon/0.9966507 if transfor==1 & decena==2
replace transforn=gasnomon/0.9966507 if transfor==1 & decena==3
replace transforn=gasnomon/0.9966507 if transfor==1 & decena==4
replace transforn=gasnomon/0.9983886 if transfor==1 & decena==5
replace transforn=gasnomon/0.9983886 if transfor==1 & decena==6
replace transforn=gasnomon/0.9983886 if transfor==1 & decena==7
replace transforn=gasnomon/0.9996654 if transfor==1 & decena==8
replace transforn=gasnomon/0.9996654 if transfor==1 & decena==9
*****Rubro 11 (mensual): Comunicaciones: telefono, fax
gen  comunican=gasnomon/0.9995807 if comunica==1 & decena==1
replace comunican=gasnomon/1 if comunica==1 & decena==2
replace comunican=gasnomon/1 if comunica==1 & decena==3
replace comunican=gasnomon/1 if comunica==1 & decena==4
replace comunican=gasnomon/1.0008685 if comunica==1 & decena==5
replace comunican=gasnomon/1.0008685 if comunica==1 & decena==6
replace comunican=gasnomon/1.0008685 if comunica==1 & decena==7
replace comunican=gasnomon/1.0023958 if comunica==1 & decena==8
replace comunican=gasnomon/1.0023958 if comunica==1 & decena==9
*****Rubro 12 (mensual): Educación y esparcimiento****
gen  edurecrn=gasnomon/0.9929507 if edurecr==1 & decena==1
replace edurecrn=gasnomon/1 if edurecr==1 & decena==2
replace edurecrn=gasnomon/1 if edurecr==1 & decena==3
replace edurecrn=gasnomon/1 if edurecr==1 & decena==4
replace edurecrn=gasnomon/1.0318058 if edurecr==1 & decena==5
replace edurecrn=gasnomon/1.0318058 if edurecr==1 & decena==6
replace edurecrn=gasnomon/1.0318058 if edurecr==1 & decena==7
replace edurecrn=gasnomon/1.0296505 if edurecr==1 & decena==8
replace edurecrn=gasnomon/1.0296505 if edurecr==1 & decena==9
gen  educabn=gasnomon/0.9929507 if educab==1 & decena==1
replace educabn=gasnomon/1 if educab==1 & decena==2
replace educabn=gasnomon/1 if educab==1 & decena==3
replace educabn=gasnomon/1 if educab==1 & decena==4
replace educabn=gasnomon/1.0318058 if educab==1 & decena==5
replace educabn=gasnomon/1.0318058 if educab==1 & decena==6
replace educabn=gasnomon/1.0318058 if educab==1 & decena==7
replace educabn=gasnomon/1.0296505 if educab==1 & decena==8
replace educabn=gasnomon/1.0296505 if educab==1 & decena==9
*****Rubro 13 (mensual): Artículos y servicios para el cuidado personal 
gen cuidpersn=gasnomon/0.9938275 if cuidpers==1 & decena==1
replace cuidpersn=gasnomon/1 if cuidpers==1 & decena==2
replace cuidpersn=gasnomon/1 if cuidpers==1 & decena==3
replace cuidpersn=gasnomon/1 if cuidpers==1 & decena==4
replace cuidpersn=gasnomon/1.0070372 if cuidpers==1 & decena==5
replace cuidpersn=gasnomon/1.0070372 if cuidpers==1 & decena==6
replace cuidpersn=gasnomon/1.0070372 if cuidpers==1 & decena==7
replace cuidpersn=gasnomon/1.0124443 if cuidpers==1 & decena==8
replace cuidpersn=gasnomon/1.0124443 if cuidpers==1 & decena==9
*****Rubro 14 (trimestral): Accesorios y efectos personales
gen accpersn=gasnomon/0.9893882 if accpers==1 & decena==1
replace accpersn=gasnomon/0.9953617 if accpers==1 & decena==2
replace accpersn=gasnomon/0.9953617 if accpers==1 & decena==3
replace accpersn=gasnomon/0.9953617 if accpers==1 & decena==4
replace accpersn=gasnomon/1.0002882 if accpers==1 & decena==5
replace accpersn=gasnomon/1.0002882 if accpers==1 & decena==6
replace accpersn=gasnomon/1.0002882 if accpers==1 & decena==7
replace accpersn=gasnomon/1.0064939 if accpers==1 & decena==8
replace accpersn=gasnomon/1.0064939 if accpers==1 & decena==9
*****Rubro 15 (semestral): Otros gastos diversos y transferencias
gen otrosn=gasnomon/0.9870040 if otros==1 & decena==1
replace otrosn=gasnomon/0.9909726 if otros==1 & decena==2
replace otrosn=gasnomon/0.9909726 if otros==1 & decena==3
replace otrosn=gasnomon/0.9909726 if otros==1 & decena==4
replace otrosn=gasnomon/0.9951115 if otros==1 & decena==5
replace otrosn=gasnomon/0.9951115 if otros==1 & decena==6
replace otrosn=gasnomon/0.9951115 if otros==1 & decena==7
replace otrosn=gasnomon/0.9990962 if otros==1 & decena==8
replace otrosn=gasnomon/0.9990962 if otros==1 & decena==9
*** Regalos
gen regdadosn=gasnomon/0.9870040 if regdados==1 & decena==1
replace regdadosn=gasnomon/0.9909726 if regdados==1 & decena==2
replace regdadosn=gasnomon/0.9909726 if regdados==1 & decena==3
replace regdadosn=gasnomon/0.9909726 if regdados==1 & decena==4
replace regdadosn=gasnomon/0.9951115 if regdados==1 & decena==5
replace regdadosn=gasnomon/0.9951115 if regdados==1 & decena==6
replace regdadosn=gasnomon/0.9951115 if regdados==1 & decena==7
replace regdadosn=gasnomon/0.9990962 if regdados==1 & decena==8
replace regdadosn=gasnomon/0.9990962 if regdados==1 & decena==9
replace vivprob=vivprob*gas_tri/3
replace vivrecib=vivrecib*gas_tri/3
replace vivprest=vivprest*gas_tri/3
replace vivotra=vivotra*gas_tri/3

sort folio
save "C:\ENIGH\Comite\Pobreza 2002\Data_Stata\gasnomon02def.dta", replace

keep if auto==1
collapse (sum) gasnomon alimenton alco_tabn vestcalzn viviendan limpiezan enseresn cristaln saludn transpubn transforn comunican edurecrn educabn cuidpersn accpersn otrosn regdadosn, by (folio)
rename gasnomon gasnomona
rename alimenton alimenta
rename alco_tabn alco_taba
rename vestcalzn vestcalza
rename viviendan viviendaa
rename limpiezan limpiezaa
rename enseresn enseresa
rename cristaln cristala
rename saludn saluda
rename transpubn transpuba
rename transforn transfora
rename comunican comunicaa
rename edurecrn edurecra
rename educabn educaba
rename cuidpersn cuidpersa
rename accpersn accpersa
rename otrosn otrosa
rename regdadosn regdadosa
save "C:\ENIGH\Comite\Pobreza 2002\Data_Stata\auto_nomon02def.dta", replace

use "C:\ENIGH\Comite\Pobreza 2002\Data_Stata\gasnomon02def.dta"
keep if esp==1
collapse (sum) gasnomon alimenton alco_tabn vestcalzn viviendan limpiezan enseresn cristaln saludn transpubn transforn comunican edurecrn educabn cuidpersn accpersn otrosn regdadosn, by (folio)
rename gasnomon gasnomone
rename alimenton alimente
rename alco_tabn alco_tabe
rename vestcalzn vestcalze
rename viviendan viviendae
rename limpiezan limpiezae
rename enseresn enserese
rename cristaln cristale
rename saludn salude
rename transpubn transpube
rename transforn transfore
rename comunican comunicae
rename edurecrn edurecre
rename educabn educabe
rename cuidpersn cuidperse
rename accpersn accperse
rename otrosn otrose
rename regdadosn regdadose
save "C:\ENIGH\Comite\Pobreza 2002\Data_Stata\esp_nomon02def.dta", replace
clear

use "C:\ENIGH\Comite\Pobreza 2002\Data_Stata\gasnomon02def.dta"
keep if (reg==1 | alq==1)
collapse (sum) gasnomon alimenton alco_tabn vestcalzn viviendan limpiezan enseresn cristaln saludn transpubn transforn comunican edurecrn educabn cuidpersn accpersn otrosn regdadosn est_alq vivprob vivrecib vivprest vivotra, by (folio)
rename gasnomon gasnomonr
rename alimenton alimentr
rename alco_tabn alco_tabr
rename vestcalzn vestcalzr
rename viviendan viviendar
rename limpiezan limpiezar
rename enseresn enseresr
rename cristaln cristalr
rename saludn saludr
rename transpubn transpubr
rename transforn transforr
rename comunican comunicar
rename edurecrn edurecrr
rename educabn educabr
rename cuidpersn cuidpersr
rename accpersn accpersr
rename otrosn otrosr
rename regdadosn regdadosr
save "C:\ENIGH\Comite\Pobreza 2002\Data_Stata\reg_alqnomon02def.dta", replace
clear
**********************************************************************************************************************************************************************************