#delimit ; version 8.0 ; clear ; set mem 400m ; set more off ; cap log close ; ********************************************************* * * PROGRAMA PARA LA CONSTRUCCIÓN DEL ÍNDICE DE LA * TENDENCIA LABORAL DE LA POBREZA CON INTERVALOS DE SALARIOS * ********************************************************* Este programa debe ser utilizado con el Software Stata versión 8 o superior. Todas las bases de datos sociodemográficas de la Encuesta Nacional de Ocupación y Empleo (ENOE) pueden ser obtenidas en la página de Internet del INEGI, www.inegi.gob.mx, y deben estar convertidas a formato *.dta. Para esta estimación, de las bases de microdatos disponibles de la ENOE se emplean las siguientes: sdem.dta y coe2.dta. En este programa se utilizan cuatro tipos de archivos, los cuales están ubicados en las siguientes carpetas: 1) Bases originales sociodemográficas: "C:\ITLP IS\sdem" 1) Bases originales cuestionario ocupación y empleo 2: "C:\ITLP IS\coe2" 2) Bases generadas: "C:\ITLP IS\temp" 3) Bitácoras: "C:\ITLP IS\log" Para cambiar estas ubicaciones, se modifican los siguientes globals; gl enoe = "C:\ITLP IS\sdem" ; gl coe2 = "C:\ITLP IS\coe2"; gl temp = "C:\ITLP IS\temp" ; gl log = "C:\ITLP IS\log" ; log using "$log\ITLP IS.smcl", replace ; set obs 1 ; gen periodo = . ; gen TLP = . ; save "$temp\Indice ESTADOS IS.dta", replace ; ********************************************************* Parte I, LÍNEA DE BIENESTAR MÍNIMO : ********************************************************* ; di in red "Promedio trimestral de los valores de la línea de bienestar mínimo" ; scalar ut105 = 712.52 ; scalar rt105 = 492.75 ; scalar ut205 = 741.47 ; scalar rt205 = 520.04 ; scalar ut305 = 740.34 ; scalar rt305 = 516.81 ; scalar ut405 = 736.44 ; scalar rt405 = 509.98 ; scalar ut106 = 754.22 ; scalar rt106 = 526.50 ; scalar ut206 = 748.56 ; scalar rt206 = 518.14 ; scalar ut306 = 764.24 ; scalar rt306 = 533.35 ; scalar ut406 = 797.74 ; scalar rt406 = 565.67 ; scalar ut107 = 814.68 ; scalar rt107 = 576.45 ; scalar ut207 = 803.91 ; scalar rt207 = 563.70 ; scalar ut307 = 810.82 ; scalar rt307 = 567.74 ; scalar ut407 = 830.54 ; scalar rt407 = 582.80 ; scalar ut108 = 839.20 ; scalar rt108 = 585.95 ; scalar ut208 = 858.25 ; scalar rt208 = 601.31 ; scalar ut308 = 875.53 ; scalar rt308 = 614.68 ; scalar ut408 = 906.74 ; scalar rt408 = 640.52 ; scalar ut109 = 921.95 ; scalar rt109 = 648.99 ; scalar ut209 = 949.80 ; scalar rt209 = 672.94 ; scalar ut309 = 967.59 ; scalar rt309 = 686.42 ; scalar ut409 = 968.88 ; scalar rt409 = 686.07 ; scalar ut110 = 992.66 ; scalar rt110 = 705.15 ; scalar ut210 = 987.37 ; scalar rt210 = 695.86 ; scalar ut310 = 979.48 ; scalar rt310 = 685.00 ; scalar ut410 = 1003.55; scalar rt410 = 705.69 ; scalar ut111 = 1021.46; scalar rt111 = 717.37 ; scalar ut211 = 1022.32; scalar rt211 = 717.89 ; scalar ut311 = 1023.18; scalar rt311 = 716.95 ; scalar ut411 = 1049.23; scalar rt411 = 740.46 ; scalar ut112 = 1079.48; scalar rt112 = 765.39 ; scalar ut212 = 1089.06; scalar rt212 = 770.99 ; scalar ut312 = 1130.12; scalar rt312 = 805.78 ; scalar ut412 = 1151.73; scalar rt412 = 820.37 ; scalar ut113 = 1166.19; scalar rt113 = 828.58 ; scalar ut213 = 1177.37; scalar rt213 = 837.17 ; scalar ut313 = 1177.92; scalar rt313 = 833.29 ; scalar ut413 = 1202.03; scalar rt413 = 853.78 ; scalar ut114 = 1234.88; scalar rt114 = 870.94 ; scalar ut214 = 1223.48; scalar rt214 = 854.18 ; scalar ut314 = 1243.86; scalar rt314 = 869.90 ; scalar ut414 = 1276.59; scalar rt414 = 899.33 ; scalar ut115 = 1264.54; scalar rt115 = 896.19 ; scalar ut215 = 1268.42; scalar rt215 = 901.33 ; scalar ut315 = 1282.18; scalar rt315 = 911.27 ; scalar ut415 = 1302.57; scalar rt415 = 926.32 ; scalar ut116 = 1338.59; scalar rt116 = 959.66 ; scalar ut216 = 1329.37; scalar rt216 = 947.16 ; scalar ut316 = 1323.86; scalar rt316 = 942.82 ; scalar ut416 = 1357.28; scalar rt416 = 970.70 ; scalar ut117 = 1376.95; scalar rt117 = 975.94 ; scalar ut217 = 1410.27 ; scalar rt217 = 1003.99 ; scalar ut317 = 1469.68 ; scalar rt317 = 1053.35 ; ********************************************************* Parte II CÁLCULO DEL INGRESO DE LOS HOGARES : ********************************************************* ; foreach x in t105 t205 t305 t405 t106 t206 t306 t406 t107 t207 t307 t407 t108 t208 t308 t408 t109 t209 t309 t409 t110 t210 t310 t410 t111 t211 t311 t411 t112 t212 t312 t412 t113 t213 t313 t413 t114 t214 t314 t414 t115 t215 t315 t415 t116 t216 t316 t416 t117 t217 t317 { ; use "$coe2\coe2`x'.dta" , clear; gen str foliop = (cd_a + ent + con + v_sel + n_hog + h_mud + n_ren); keep foliop p6c p6b2 p6_9 p6a3; sort foliop; save "$temp\ingreso`x'.dta", replace; use "$enoe\sdem`x'.dta", clear ; keep if r_def=="00" & (c_res=="1" | c_res=="3") ; gen str folioh = (cd_a + ent + con + v_sel + n_hog + h_mud); gen str foliop = (cd_a + ent + con + v_sel + n_hog + h_mud+n_ren); keep folioh foliop salario t_loc fac clase1 clase2 ent ingocup; sort foliop; merge foliop using "$temp\ingreso`x'.dta"; tab _merge; drop _merge; gen ocupado=cond(clase1==1 & clase2==1,1,0); destring p6b2 p6c, replace; recode p6b2 (999998=.) (999999=.); *Recuperación de ingresos por rangos de salarios mínimos; gen ingreso=p6b2; replace ingreso=0 if ocupado==0; replace ingreso=0 if p6b2==. & (p6_9=="09" | p6a3=="3"); replace ingreso=0.5*salario if p6b2==. & p6c==1; replace ingreso=1*salario if p6b2==. & p6c==2; replace ingreso=1.5*salario if p6b2==. & p6c==3; replace ingreso=2.5*salario if p6b2==. & p6c==4; replace ingreso=4*salario if p6b2==. & p6c==5; replace ingreso=7.5*salario if p6b2==. & p6c==6; replace ingreso=10*salario if p6b2==. & p6c==7; gen tamh = 1 ; rename fac factor ; gen rururb = cond(t_loc>="1" & t_loc<="3",0,1) ; label define ru 0 "Urbano" 1 "Rural" ; label values rururb ru ; destring ent, replace; gen mv=cond(ingreso==. & ocupado==1,1,0); keep folioh tamh ingreso rururb factor ent mv ocupado; collapse (sum) tamh ingreso mv ocupado (mean) rururb factor ent, by(folioh) ; *Se elimina a los hogares que tienen valores perdidos en ingreso; replace mv=1 if mv>0 & mv!=.; drop if mv==1; ********************************************************* Parte III COMPARACIÓN DEL INGRESO DEL HOGAR CON EL PROMEDIO DE LA LINEA DE BIENESTAR MÍNIMO : ********************************************************* ; gen factorp = factor*tamh ; gen lp`x' = cond(rururb==0,u`x',r`x') ; gen pob = cond((ingreso/tamh)