if (FALSE) {
# change default ggplot theme
ggplot2::theme_set(theme_black())
# change default bayesplot color scheme
bayesplot::color_scheme_set("viridisC")
# fit a simple model
fit <- brm(count ~ zAge + zBase * Trt + (1|patient),
data = epilepsy, family = poisson(), chains = 2)
summary(fit)
# create various plots
plot(marginal_effects(fit), ask = FALSE)
pp_check(fit)
mcmc_plot(fit, type = "hex", variable = c("b_Intercept", "b_Trt1"))
}
Run the code above in your browser using DataLab