# NOT RUN {
data <- matrix(rnorm(200), ncol = 2)
x <- bvar(data, lags = 2, irf = bv_irf(), fcast = bv_fcast())
y <- bvar(data, lags = 2)
# Plot full traces and densities
plot(x)
# Compare with second chain
plot(x, chains = y)
# Only plot the marginal likelihood's density
plot(x, "dens", "ml")
# Use plot as an alternative to plot(irf(x)) and plot(predict(x))
plot(x, "irf")
plot(x, "fcast", vars = 2)
# }
Run the code above in your browser using DataLab