# \donttest{
# brms models
# -----------------------------------------------
if (require("brms")) {
formula <- brms::brmsformula(mpg ~ wt + cyl, center = FALSE)
model <- brms::brm(formula, data = mtcars, refresh = 0)
priors <- model_to_priors(model)
priors <- brms::validate_prior(priors, formula, data = mtcars)
priors
model2 <- brms::brm(formula, data = mtcars, prior = priors, refresh = 0)
}
# }
Run the code above in your browser using DataLab