# NOT RUN {
## fit a model
fit <- brm(rating ~ treat + period + carry + (1|subject),
data = inhaler, cores = 2)
## extract predictive errors
pe <- predictive_error(fit)
str(pe)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab