# NOT RUN {
N <- 100L
beta <- 1:5
X <- matrix(rnorm(N * 5), N, 5)
y <- X %*% beta + rnorm(N)
bm(y ~ X, n_burn = 100, n_draw = 100)
# }
# NOT RUN {
# Reproduce the linear model in Kuschnig (2022)
blm(log(sales) ~ log(price / cpi) + log(ndi / cpi) +
factor(name) + factor(year), data = cigarettes)
# }
Run the code above in your browser using DataLab