Manuel Eviews
Manuel Eviews
Manuel Eviews
t=1
(j
t
c ,r
t
)
2
2o
2
=
T
t=1
log c
_
j
t
c ,r
t
o
_
avec c la fonction de densit dune loi normale centre rduite (elle est donne par la fonction @dnorm
sous EViews).
Estimation dun modle linaire par maximum de vraisemblance
Initialisation du vecteur de paramtres avec les estimations MCO
equation eqmco.ls y c x
c(3) = eqmco.@se^2
Nom de lobjet qui contiendra les estimations par MV
logl eqmv
Nom de lobjet dans lequel seront stockes les contributions de chaque observation la log-vraisemblance
eqmv.append @logl logl1
Spcication de la vraisemblance
29
eqmv.append sres = (y - c(1) -c(2)*x)/@sqrt(c(3))
eqmv.append logl1 = log(@dnorm(sres)) -log(c(3))/2
Estimation par MV
eqmv.ml
eqmv.results
6.4 Simulation et estimation dun modle STR logistique et exponentiel
Un modle seuil transition lisse pour une srie univarie j
t
admet lcriture gnrale suivante :
j
t
= (a
0
+ a
1
r
1
+ ... + a
p
r
p
) 1 1 (.
t
; , d) + (/
0
+ /
1
r
1
+ ... + /
p
r
p
) 1 (.
t
; , d) + n
t
(1)
o n
t
iid (0, o
2
), 1 est la fonction de transition, .
t
la variable de transition.
La fonction de transition 1 (j
td
; , d) est une fonction continue borne entre zro et un. Deux dnitions
alternatives sont gnralement considres. La fonction de transition logistique, dune part :
1(j
td
; , d) = 1 + exp[(.
t
c)]
1
(2)
et, dautre part, la fonction de transition exponentielle :
1(j
td
; , d) = 1 exp[(.
t
c)
2
] (3)
Dans ces fonctions, c reprsente le paramtre de seuil et est un paramtre strictement positif mesurant la
vitesse de transition entre les deux rgimes. Le systme dquations (1) et (2) dnit le modle Logistique
STR (LSTR) et (1) et (3) le modle Exponentiel STR (ESTR).
Simulation dun modle ST(A)R et reprsentation de la fonction de transition estime
Ce programme simule des modles seuil transition lisse et reprsente les fonctions de transition
estimes.
workle STAR u 1 500
subroutine SIMUL_STAR(series y,series Fl,series z1,series x,vector coef )
!stdz = @stdev(z1)
if model = 1 then
Fl=1/(1+@exp(-(coef(1)/!stdz)*(z1-coef(2))))
else
Fl=1-@exp(-(coef(1))*((z1-coef(2))/!stdz)^2)
endif
y=(coef(6)+coef(7)*z1+coef(8)*x)*(1-Fl)+(coef(3)+coef(4)*z1+coef(5)*x)*Fl + nrnd
endsub
smpl 1 500
30
Choix du modle : 1 = LSTAR, 2 = ESTAR
scalar model = 2
series exog = nrnd
Variable de seuil
series var_seuil =nrnd
vector(8) coef
coef.ll 2,0.5,2,0.5,0.7,1.5,0.4,0.6
Ordre des paramtres : vitesse de transition,seuil,coef du rgime 1, coef du rgime 2
series endog
series Ftrans
call simul_star(endog,Ftrans,var_seuil,exog,coef )
Reprsentation de la srie simule
endog.line
Reprsentation de la fonction de transition estime
sort var_seuil
group g var_seuil Ftrans
g.scat
Estimation dun modle ST(A)R
Ce programme estime par Moindres Carrs Non linaires un modle ST(A)R de type logistique ou ex-
ponentiel. Il reprsente ensuite les sries ajuste et observe, la variable explique classe par rgime et
retrace enn la fonction de transition estime. On estime ici la prsence deets de seuil dans la fonction
de consommation keynsienne.
Choix du modle : 1 = LSTAR, 2 = ESTAR
scalar model = 1
Dnition de la variable endogne et de la variable de seuil
series endog = d_consommation
series exog = d_revenu
series var_seuil = d_taux_dinteret
scalar stdz = @stdev(var_seuil)
Choix des conditions initiales pour lestimation du modle
param c(1) 2 c(2) 0.5 c(3) 2 c(4) 0.5 c(5) 0.7 c(6) 1.5 c(7) 0.4 c(8) 0.6
Estimation par MCNL
if model = 1 then
31
equation eq_star.ls endog =(1-1/(1+exp(-(c(1)/stdz)*(var_seuil-c(2)))) )*(c(3) + c(4)*var_seuil
+ c(5)*exog) + (c(6) + c(7)*var_seuil + c(8)*exog)*(1/(1+exp(-(c(1)/stdz)*(var_seuil-c(2)))) )
else
equation eq_star.ls endog =(@exp(-(c(1))*((var_seuil-c(2))/stdz)^2))*(c(3) + c(4)*var_seuil
+ c(5)*exog) +(1-@exp(-(c(1))*((var_seuil-c(2))/stdz)^2))*(c(6) + c(7)*var_seuil + c(8)*exog)
endif
Achage des rsultats destimation
eq_star.results
Representation de la srie observe et de la srie ajuste
eq_star.makeresids residus
series t = endog-residus
group g1 endog t
graph graphique1.line g1
graphique1.addtext(t) Fig1 : La srie observe et ajuste
show graphique1
Reprsentation de la srie classe par rgime
if model =1 then
series F_trans = 1/(1+exp(-(c(1)/stdz)*(z1-c(2))))
else
series F_trans = 1-@exp(-(c(1))*((z1-c(2))/stdz)^2)
endif
series endog_reg1 = @recode(F_trans0.5,endog,na)
series endog_reg2 = @recode(F_trans<0.5,endog,na)
group g2 endog_reg1 endog_reg2
graph graphique2.line g2
graphique2.addtext(t) Fig2 : Les observations classes par rgime
show graphique2
Representation de la fonction de transition estimee
sort var_seuil
group g3 var_seuil F_trans
graph graphique3.scat g3
graphique3.addtext(t) Fig3 : La fonction de transition estime
show graphique3
32