## Not run:
# data(IsraelPalestineConflict)
# fit.BVAR <- szbvar(IsraelPalestineConflict, p=6, z=NULL, lambda0=0.6,
# lambda1=0.1, lambda3=2, lambda4=0.5, lambda5=0,
# mu5=0, mu6=0, nu=3, qm=4, prior=0,
# posterior.fit=FALSE)
#
# posterior.impulses <- mc.irf(fit.BVAR, nsteps=12, draws=1000)
# plot(posterior.impulses, method = c("Percentile"))
# ## End(Not run)
Run the code above in your browser using DataLab