if (FALSE) {
library(brms)
mod <- brm(count ~ zAge + zBase * Trt + (1|patient) + (1|obs),
data = epilepsy,
family = poisson())
ppc_brms(mod)
ppc_brms(mod, dy = c(0.02, 0.1), dx = c(0.005, 0.1))
ppc_brms(mod, cor = TRUE, equation = TRUE, yequ = 100)
}
Run the code above in your browser using DataLab