# NOT RUN {
# }
# NOT RUN {
fit <- brm(rating ~ period + carry + cs(treat),
data = inhaler, family = sratio("cloglog"),
prior = set_prior("normal(0,5)"), chains = 2)
summary(fit)
plot(fit, ask = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab