I am trying to generate 1-year out-of-sample forecasts. However, I could not get the forecasts. I am not sure where I made mistakes. Could you please kindly check my codes?
Code: Select all
dlm(presample=ergodic,a=af,c=1.0,z=zf,MU=lineareq,f=1.0,sv=sv1,sw=sw1,y=ewrd,method=bfgs,vhat=vhat,svhat=svhat,type=filter) / xstates vstates
dlm(a=af,c=1.0,z=zf,MU=lineareq,f=1.0,sv=sv1,sw=sw1,x0=xstates(2007:12),sx0=vstates(2007:12),yhat=yhat,svhat=svhat) 2008:01 2010:12
set forecast 2008:01 2010:12 = %scalar(yhat)
set stderr 2008:01 2010:12 = sqrt(%scalar(svhat))
set lower 2008:01 2010:12 = forecast + %invnormal(0.25)*stderr
set upper 2008:01 2010:12 = forecast + %invnormal(0.75)*stderr
graph(footer="out-of-sample forecast with 50% CI") 4
# ewrd 1953:4 2007:12
# forecast / 2
# lower / 3
# upper / 3