# NOT RUN {
# Get data
data("e6")
# Create model
model <- gen_vec(e6, p = 4, r = 1,
const = "unrestricted", seasonal = "unrestricted",
iterations = 100, burnin = 10)
# Chosen number of iterations and burnin should be much higher.
# Add priors
model <- add_priors(model)
# Obtain posterior draws
object <- bvecpost(model)
# }
Run the code above in your browser using DataLab