# Get data
data("e1")
e1 <- diff(log(e1)) * 100
# Create model
model <- gen_var(e1, p = 2, deterministic = "const",
iterations = 50, burnin = 10)
# Number of iterations and burnin should be much higher.
# Add priors
model <- add_priors(model)
# Obtain posterior draws
object <- bvarpost(model)
Run the code above in your browser using DataLab