# Example 1
data(IsraelPalestineConflict)
varnames <- colnames(IsraelPalestineConflict)
fit.BVAR <- szbvar(IsraelPalestineConflict, p=6, z=NULL,
lambda0=0.6, lambda1=0.1,
lambda3=2, lambda4=0.25, lambda5=0, mu5=0,
mu6=0, nu=3, qm=4,
prior=0, posterior.fit=FALSE)
# Draw from the posterior pdf of the impulse responses.
posterior.impulses <- mc.irf(fit.BVAR, nsteps=10, draws=5000)
# Plot the responses
plot(posterior.impulses, method=c("Sims-Zha2"), component=1,
probs=c(0.16,0.84), varnames=varnames)
# Example 2
varobj <- szbsvar(Y, p, z = NULL,
lambda0, lambda1, lambda3, lambda4, lambda5,
mu5, mu6, ident, qm = 4)
A0.posterior <- gibbs.A0(varobj, N1, N2)
impulse.sample <- mc.irf(varobj, A0.posterior, nsteps)Run the code above in your browser using DataLab