## Not run:
# fit <- brm(count ~ log_Age_c + log_Base4_c * Trt_c
# + (1|patient) + (1|visit),
# data = epilepsy, family = poisson())
#
# pp_check(fit) # shows dens_overlay plot by default
# pp_check(fit, type = "error_hist", nsamples = 11)
# pp_check(fit, type = "scatter_avg", nsamples = 100)
# pp_check(fit, type = "stat_2d")
# ## End(Not run)
Run the code above in your browser using DataLab