# NOT RUN {
library("coda")
data <- matrix(rnorm(200), ncol = 2)
x <- bvar(data, lags = 2)
y <- bvar(data, lags = 2)
# Convert hyperparameter lambda and the marginal likelihood
as.mcmc(x, vars = c("ml", "lambda"))
# Add second chain for further processing
as.mcmc(x, vars = c("ml", "lambda"), chains = list(y = y))
# }
Run the code above in your browser using DataLab