# NOT RUN {
## poisson regression without random effects.
fit1 <- brm(count ~ log_Age_c + log_Base4_c * Trt_c,
data = epilepsy, family = poisson())
summary(fit1)
plot(fit1)
## poisson regression with random intercepts of patients and visits
## as well as normal priors for fixed effects parameters.
fit2 <- 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(fit2)
plot(fit2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab