Code: Select all
[/OPEN DATA "E:\phd\research\RATS\bubble_basic.xls"
CALENDAR(Q) 1984:4
DATA(FORMAT=XLS,ORG=COLUMNS,SHEET="Sheet2") 1984:04 2008:02 y d p lp sp hp m2 comm_e comm_ne int_rate lp_nd $
lp_nb nltl npa nltl_1 nltl_exp
system(model=varmodel)
variables npa lp y d p comm_e int_rate sp
lags 1
det constant
end(system)
estimate
@VARLagSelect(lags=12, crit=aic)
# y d p comm_e nltl_1 lp int_rate sp
@VARLagSelect(lags=12, crit=sbc)
# y d p comm_e nltl_1 lp int_rate sp
*@VARIRF(model=varmodel,steps=15,page=byshocks)
*@montevar(draws=10000, model=varmodel)
source mcvardodrawsunit.src
@MCVARDoDraws(model=varmodel,draws=1000,steps=10)
@mcgraphirf(model=varmodel,center=median,percent=||.025,.975||,$
shocks=||"NPA","LP","GDP","Dividends","Inflation","Commod.prices","int_rate","Share Prices"||,$
footer="95% Monte Carlo bands",page=byshocks)]