# NOT RUN {
fit <- brm(count ~ log_Age_c + log_Base4_c * Trt_c
+ (1|patient) + (1|obs),
data = epilepsy, family = poisson(),
prior = c(prior(student_t(5,0,10), class = b),
prior(cauchy(0,2), class = sd)))
prior_summary(fit)
prior_summary(fit, all = FALSE)
print(prior_summary(fit, all = FALSE), show_df = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab