# NOT RUN {
data <- matrix(rnorm(200), ncol = 2)
x <- bvar(data, lags = 2)
# Plot the trace of lambda
bv_plot_trace(x, "lambda")
# Adjust par() and plot the density of the posterior marginal likelihood
op <- par(mar = c(2, 2, 2, 0.5))
bv_plot_density(x, "ml")
par(op)
# Assess parameter convergence of several chains via their trace
y <- bvar(data, lags = 2)
z <- bvar(data, lags = 2)
bv_plot_trace(x, "lambda", y, z)
# }
Run the code above in your browser using DataLab