# NOT RUN {
fit1 <- brm(count ~ zAge + zBase * Trt + (1|patient),
data = epilepsy, family = poisson(),
save_pars = save_pars(all = TRUE))
# throws warning about some pareto k estimates being too high
(loo1 <- loo(fit1))
(mmloo1 <- loo_moment_match(fit1, loo = loo1))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab