************************************************************************************** * Programa 1 * LABOR INCOME Ecua ecv2006* *************************************************************************************** * ESTE PROGRAMA INCLUYE CUATRO ETAPAS * I CALCULO DE PERFILES * Este programa calcula el ingreso laboral que incluye * * I.A) ingreso del trabajo DEPENDIENTE: incluye el salario, salario en especie y beneficios, * en ocupacion principal y secundaria * ** * I.B) ingreso del trabajo INDEPENDIENTE: * * II SUAVIZAMIENTO DE PERFILES * * III AJUSTE DE PERFILES A CUENTAS NACIONALES (MACROCONTROLES) * * IV CALCULO DEL PERFIL POR EDAD (dolares ANUALES) * * Ultima Modificacion-revision: abril 2012 2010 (LRB) ************************************************************************************ cd "/Users/lrosero/Desktop/Ecua-NTA2006" /* se habian hecho las correcciones de abajo y se guardaron una sola vez use e5r_per, clear gen str15 idhog = ciudad + zona + sector + vivienda +hogar *Este es el identificador del hogar * a las personas se identifica con idhogar y persona * descubrimos que en hogar 020150999029011 hay dos personas N. 1, * corregimos la de 74 a–os de edad * esta correccion se hace una unica vez y el archivo e5r_per-v2 queda limpio replace persona=2 if edad==74 & idhog == "020150999029011" save e5r_per_v2,replace */ *----------------------------------------------------------------------------* * I) CREACION DE PERFILES PROPIAMENTE DICHOS *A) trabajo DEPENDIENTE * pa23: Jornaleros ocupación principal * pa35-39: Asalariado-salarios ocupacion principal * pa40-43: asalariados y jornaleros especie-ocupación principal * pa28-30 33 34: Asalariado-beneficios del trabajo principal * pa57: Jornaleros ocupación secundaria * pa58-61: Asalariado-salarios ocupacion secundaria * pa62: asalariados y jornaleros especie-ocupación secundaria * *asumimos que jornaleros trabajan 6 dias por semana y 50 semanas al anno use e5r_per_v2,clear gen eda5 = int(edad/5)*5 recode pa23b 1=300 2=50 3=23 4=11.5 .=0 recode pa57b 1=300 2=50 3=23 4=11.5 .=0 *veo promedios para imputar a los missings (puede refinarse o eliminarse) sum pa30b if pa30b <999999 sum pa30d if pa30d <999999 sum pa30f if pa30f <999999 sum pa33b if pa33b <999999 sum pa35 if pa35 <999999 sum pa36b if pa36b <999999 sum pa38b if pa38b <999999 sum pa43b if pa43b <999999 *recodificaciones para facilitar programacion (ceros en vez de missing e imputaciones) recode pa23a .=0 recode pa57a .=0 recode pa28b . = 0 recode pa30b . = 0 999999 = 205 recode pa30d . = 0 999999 = 137 recode pa30f . = 0 999999 = 725 recode pa33b . = 0 999999 = 26 recode pa35 . = 0 999999 = 268 recode pa36b . = 0 999999 = 364 recode pa38b . = 0 999999 = 55 recode pa39b . = 0 recode pa40b . = 0 recode pa40c 1=300 2=50 3=23 4=11.5 .=0 recode pa41b . = 0 recode pa42b . = 0 recode pa42c . = 0 recode pa43b . = 0 999999 = 26 recode pa51 0= 0.5 . = 0 recode pa58 . = 0 recode pa59b . = 0 recode pa61b . = 0 recode pa62b . = 0 *salario de jornaleros ocup principal y secundaria gen ylss1 = pa23a * pa23b gen ylss2 = pa57a * pa57b *salario de todos los asalariados replace ylss1 =ylss1 + pa35*12 +pa36b +pa38b *12 +pa39b *12 *notar la multiplicacion por 12 para tenerla valores anuales replace ylss2 =ylss2 + pa58*12 +pa59b +pa62b *12 * En Ecuador se pagan 14 sueldos mensuales al anno el 13 ya esta incluido en la base. Aqui estimamos el 14. * asumimos que 14 sueldo era en 2006 de US$ 200. replace ylss1 = ylss1 + 200 if pa37==1 replace ylss2 = ylss2 + 200 if pa60==1 gen ylss = ylss1 + ylss2 lab var ylss "Ingreso laboral salarios y jornales" *Beneficios y pagos en especie gen ylsb1 = pa28b + pa30b + pa30d + pa30f + pa33b*12 +pa40b * pa40c +pa41b *12 +pa42b *pa42c + pa43b *12 gen ylsb2 = pa62b *12 * beneficios adicionales que no tienen dolares en la encuesta. * asumo provisionalmente valores, MA DEL CISNE debe investigar y corregir replace ylsb1 = ylsb1 + 300 if pa29a==1 /* asumo $300 anuales costo de seguro de vida */ replace ylsb1 = ylsb1 + 300 if pa29b==1 /* asumo $300 anuales costo de seguro de accidentes */ replace ylsb1 = ylsb1 + .5* pa35 if pa32a==1 /* asumo medio mes de vacaciones */ replace ylsb1 = ylsb1 + 30 if pa32b==1 /* asumo $30 anuales costo de capacitaciones */ replace ylsb1 = ylsb1 + .12 * pa35 *12 if pa34a==1 /* asumo 12% de sueldo de aporte patronal al IESS */ replace ylsb1 = ylsb1 + 1200 if pa34b==1 /* asumo $1200 anuales costo de seguro medico privado */ *agregamos gen ylsb = ylsb1 + ylsb2 lab var ylsb "Ingreso laboral en beneficios/especie" gen yls = ylss + ylsb lab var yls "Ingreso laboral anual de asalariados" ren yls yle /* nombre oficial de la variable en NTA-- e por earnings*/ sum yls* sum yls* if yle !=0 histogram yle if yle >0 & yle<10000, bin(10) graph bar yle,over(eda5) *B) trabajo INDEPENDIENTE *Vamos a basarnos en ingreso auToreportado *mas adelante CONVIENE QUE se HAGA el metodo B que requiere mucho mas trabajo pero * que produce tambien informacion util para ingreso de activos * Primer trabajo: pa22a dolares y pa22c veces recibida en 12 meses * Segundo trabajo: pa56a dolares y pa56c veces recibida en 12 meses gen yls1 = pa22a * pa22c replace yls1 =0 if yls1==. gen yls2 = pa56a * pa56c if pa56a !=. replace yls2=0 if yls2==. gen yls = yls1 +yls2 sum yls* sum yls* if yls !=0 histogram yls if yls >0 & yls<10000, bin(10) graph bar yls yle,over(eda5) lab var yls "Ingreso laboral anual de independientes" *Ojo: No se intento agregar autoconsumo. *Se podria agregar 2/3 del autoconsumo del hogar prorrateado entre los receptores de ingreso independiente ************************************************************************** *****b. Correccion por subreporte de trabajadores familiares no remunerados *b.1. Creación del ponderador para el ingreso del trabajo independiete usando el promedio * de los salarios de la categoría ws==1 por edad*/ gen ws=pa21 recode ws 1/3 8 9 14=1 4 5 10 11=2 6 7 12 13=3 label define ws 1 "Asalariados" 2 "Independientes" 3 "No_remuner" label values ws ws gen wage_worker=yle if ws==1 recode wage_worker .=0 egen mean_wage_worker=mean(wage_worker), by(edad) recode mean_wage_worker .=0 *b.2. Creamos la variable que identifica a los trabajadores independientes, ws=2 y ws=3 */ gen self_employed=(ws==2|ws==3) recode self_employed (.=0) *b.3. Sum of the EXPECTED wages of self_employed for the household replace mean_wage_worker=0 if self_employed ~=1 sort idhog egen hhwage_worker=sum(mean_wage_worker), by( idhog) *b.4. Sum all the entrepreneurial income of indivdiuals in a household */ egen hh_yls=sum(yls), by(idhog) *b.5. Allocate HH self_employed income (hh_yls) to self-employed workers in a household * using % of mean wage of wage earners (by age) to total household wage of wage earners * as weight ren yls yls_raw gen yls=(mean_wage_worker/hhwage_worker)*hh_yls recode yle yls yls_raw (. = 0) graph bar yls yls_raw, over(eda5) keep idhog person edad yle yls yls_raw factor_f sort idhog person ******************************************************************* save lcd-icv06, replace ******************************************************************* *Este es un archivo en donde guardaremos las variables CNT del ciclo vital (LCD en ingles) * Y donde haremos suvaizamientos y ajustes *Archivo por edad para hacer graficos de lineas collapse (count) factor_f (mean) yle yls yls_raw [w= factor_f],by(edad) line yle yls edad line yls yls_raw edad *Falta suavizar y ajustar a macro controles