fit_i <- brm(rating ~ treat + period + carry, data = inhaler, family = "cumulative")
hypothesis(fit_i, "treat = period + carry")
hypothesis(fit_i, "exp(treat) - 3 = 0")
## test both of the above hypotheses with the same call
hypothesis(fit_i, c("treat = period + carry", "exp(treat) - 3 = 0"))
Run the code above in your browser using DataLab