# ordinal regression with family "sratio"
fit_i1 <- brm(rating ~ treat + period + carry, data = inhaler,
family = "sratio", prior = prior = list(b = "normal(0,5)"))
brm.plot(fit_i1)
print(fit_i1)
# ordinal regression with family "cumulative" and random intercept over subjects
fit_i2 <- brm(rating ~ treat + period + carry + (1|subject), data = inhaler,
family = "cumulative", n.iter = 2000, prior = list(b = "normal(0,5)"))
brm.plot(fit_i2)
print(fit_i2)
Run the code above in your browser using DataLab