Download Estimación de PMC Modelos lineal y no lineal

clear
log using "C:\ENIGH2014T\Estimación PMC por MCNL.LOG", replace text
* Objetivo: Estimar la Propensión Marginal a Consumir para México
* bajo los modelos keynesiano lineal y no lineal
* Fuente: Microdatos de la ENIGH 2014 Tradicional del INEGI
* Datos disponibles en:
http://www.beta.inegi.org.mx/proyectos/enchogares/regulares/enigh/tradicional/2014/default.html
drop _all
scalar drop _all
program drop _all
* Base Nacional y Entidades Federativas
use "C:\ENIGH2014T\tra_concentrado_2014_concil_2010_stata.dta",clear
sort ing_mon
gen double pi =sum(factor)
gen double ppi=pi/pi[_N]
gen double qi =sum(ing_mon*factor)
gen double qqi=qi/qi[_N]
gen percentil = 0
for num 1/100:replace percentil=X if ppi>((X-1)/100) & ppi<=(X/100)
gen i=1
table i [iw=factor],c(sum ing_mon sum gasto_mon) f(%20.2fc) row
sum ing_mon
scalar xmean=r(mean)
reg gasto_mon ing_mon
gen logg=log(gasto_mon)
gen logy=log(ing_mon)
reg logg logy
nl (gasto_mon = {alpha} + {beta} * ing_mon ^ {gamma}),initial(alpha 1 beta 1 gamma 1)
testnl _b[/gamma]==1
test _b[gamma:_cons]==1
sum ing_mon
scalar xmean=r(mean)
scalar pmcnl=_b[gamma:_cons] *_b[beta:_cons]*xmean^(_b[gamma:_cons] - 1 )
display "PMC=", pmcnl
collapse (mean) ing_mon (mean) gasto_mon, by(percentil)
gen pmcnl=_b[gamma:_cons] *_b[beta:_cons]*ing_mon^(_b[gamma:_cons] - 1 )
format pmcnl %6.4f
table percentil, c(mean ing_mon mean gasto_mon mean pmcnl) f(%19.2f) row
scatter pmcnl percentil, c(l) lcolor(yellow) xlabel(0(10)100,grid labsize(small))
ylabel(0(0.25)3, grid format(%3.1f) labsize(small)) msize(vsmall) mlabel(pmcnl)
mlabsize(tiny) mlabangle(vertical) mlabposition(1) title("Propensión Marginal al
Consumo por Percentil") t2title("(percentiles de hogares ordenados por su ingreso
corriente monetario)") note("Fuente: Elaboración con microdatos de la ENIGH 2014T del
INEGI") xtitle("Percentil (Percentil 10=Decil 1, Percentil 90=Decil 9)")
ytitle("Propensión Marginal a Consumir") saving("C:\ENIGH2014T\PMC_MCNL.gph",
replace)
log close
1.6997
1.5893
1.5053
1.4378
1.3845
1.3328
1.2910
1.2619
1.2330
1.2027
1.1780
1.1556
1.1312
1.1103
1.0933
1.0796
1.0641
1.0513
1.0375
1.0245
1.0133
1.0003
0.9890
0.9783
0.9725
0.9624
0.9523
0.9415
0.9315
0.9215
0.9127
0.9054
0.8976
0.8909
0.8836
0.8760
0.8684
0.8617
0.8551
0.8471
0.8405
0.8371
0.8307
0.8237
0.8161
0.8075
0.8004
0.7938
0.7883
0.7827
0.7764
0.7696
0.7626
0.7562
0.7531
0.7488
0.7423
0.7354
0.7287
0.7225
0.7173
0.7114
0.7047
0.6973
0.6924
0.6868
0.6806
0.6742
0.6681
0.6625
0.6553
0.6487
0.6441
0.6369
0.6299
0.6235
0.6155
0.6082
0.5998
0.5942
0.5863
0.5795
0.5706
0.5617
0.5536
0.5448
0.5357
0.5268
0.5151
0.5039
0.4934
0.4812
0.4672
0.4529
0.4321
0.4039
0.3715
0.2858
1.9323
2.6356
0.0 0.3 0.5 0.8 1.0 1.3 1.5 1.8 2.0 2.3 2.5 2.8 3.0
Propensión Marginal al Consumo por Percentil
(percentiles de hogares ordenados por su ingreso corriente monetario)
0
10
20
30
40
50
60
Fuente: Elaboración con microdatos de la ENIGH 2014T del INEGI
70
80
Percentil (Percentil 10=Decil 1, Percentil 90=Decil 9)
90
100