# Load data
data("e6")
e6 <- e6 * 100
# Generate model
model <- gen_vec(e6, p = 1, r = 1, const = "restricted",
iterations = 10, burnin = 10)
# Chosen number of iterations and burn-in should be much higher.
# Add priors
model <- add_priors(model)
# Obtain posterior draws
object <- draw_posterior(model)
Run the code above in your browser using DataLab