powered by
shockDecomposition(model, horizon=30, shock=rep(1,horizon))
data("eg1.DSE.data.diff", package="dse") model <- estVARXls(eg1.DSE.data.diff) shockDecomposition(model)
Run the code above in your browser using DataLab