# Load data
data("e6")
# Generate model data
model <- gen_vec(e6, p = 2, r = 1,
const = "unrestricted", seasonal = "unrestricted",
iterations = 100, burnin = 10)
# Add prior specifications
model <- add_priors(model)
# Obtain posterior draws
object <- draw_posterior(model)
# Thin
object <- thin(object)
Run the code above in your browser using DataLab