if (FALSE) {
model <- brm(count ~ zAge + zBase * Trt + (1|patient),
data = epilepsy, family = "poisson")
# plot posterior intervals
mcmc_plot(model)
# only show population-level effects in the plots
mcmc_plot(model, variable = "^b_", regex = TRUE)
# show histograms of the posterior distributions
mcmc_plot(model, type = "hist")
# plot some diagnostics of the sampler
mcmc_plot(model, type = "neff")
mcmc_plot(model, type = "rhat")
# plot some diagnostics specific to the NUTS sampler
mcmc_plot(model, type = "nuts_acceptance")
mcmc_plot(model, type = "nuts_divergence")
}
Run the code above in your browser using DataLab