## 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)
# ## End(Not run)
Run the code above in your browser using DataLab