## Not run:
# data(IsraelPalestineConflict)
# m1 <- msbvar(IsraelPalestineConflict, p=1, h=2, lambda0=0.6,
# lambda1=0.1, lambda3=1, lambda4=0.5, lambda5=0,
# mu5=0, mu6=0, qm=12, alpha.prior=matrix(10, 2, 2),
# prior=0, max.iter=20)
# m2p <- gibbs.msbvar(m1, N1=1000, N2=10000, permute=FALSE, Sigma.idx=1)
#
# irf2 <- mc.irf(m2p, nsteps=12)
# plot.ms.irf(irf2)
#
# ## End(Not run)
Run the code above in your browser using DataLab