if (FALSE) {
fit <- brm(rating ~ treat + period + carry + (1|subject),
data = inhaler, family = "cumulative",
prior = set_prior("normal(0,2)", class = "b"),
sample_prior = TRUE)
# extract all prior draws
draws1 <- prior_draws(fit)
head(draws1)
# extract prior draws for the coefficient of 'treat'
draws2 <- prior_draws(fit, "b_treat")
head(draws2)
}
Run the code above in your browser using DataLab