## Not run: 
# ## ordinal regression with family "sratio"
# fit1 <- brm(rating ~ treat + period + carry, 
#             data = inhaler, family = sratio(), 
#             prior = set_prior("normal(0,5)"))
# summary(fit1) 
# plot(fit1)
#        
# ## ordinal regression with family "cumulative" 
# ## and random intercept over subjects             
# fit2 <- brm(rating ~ treat + period + carry + (1|subject), 
#               data = inhaler, family = cumulative(), 
#               prior = set_prior("normal(0,5)"))
# summary(fit2) 
# plot(fit2)
# ## End(Not run)
Run the code above in your browser using DataLab