# \donttest{
set.seed(333)
if (require("brms", quietly = TRUE)) {
model <- suppressWarnings(brm(mpg ~ wt * cyl * vs,
data = mtcars,
iter = 100, control = list(adapt_delta = 0.80),
refresh = 0
))
diagnostic_draws(model)
}
# }
Run the code above in your browser using DataLab