if (FALSE) {
# this model just serves as an illustration
# OpenCL may not actually speed things up here
fit <- brm(count ~ zAge + zBase * Trt + (1|patient),
data = epilepsy, family = poisson(),
chains = 2, cores = 2, opencl = opencl(c(0, 0)),
backend = "cmdstanr")
summary(fit)
}
Run the code above in your browser using DataLab