## Not run:
# # model using basic lme4-style formula
# fit1 <- brm(count ~ Trt_c + (1|patient), data = epilepsy)
# summary(fit1)
# # equivalent model using 'gr' which is called anyway internally
# fit2 <- brm(count ~ Trt_c + (1|gr(patient)), data = epilepsy)
# summary(fit2)
# WAIC(fit1, fit2)
# ## End(Not run)
Run the code above in your browser using DataLab