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