## poisson regression without random effects.
## family = c("poisson", "log") is equivalent to family = "poisson"
fit_e1 <- brm(count ~ log_Age_c + log_Base4_c * Trt_c,
data = epilepsy, family = c("poisson", "log"))
summary(fit_e1)
plot(fit_e1)
## poisson regression with random intercepts over patients and visits
## as well as normal priors for fixed effects parameters.
fit_e2 <- brm(count ~ log_Age_c + log_Base4_c * Trt_c + (1|patient) + (1|visit),
data = epilepsy, family = "poisson", prior = set_prior("normal(0,5)"))
summary(fit_e2)
plot(fit_e2)
Run the code above in your browser using DataLab