dord <- design(
Rlevels = c("left", "right"),
factors = list(subjects = 1, S = c("left", "right")),
formula = list(location ~ 0 + S, scale ~ 1, cut ~ 1),
matchfun = function(d) d$S == d$lR,
constants = c(scale = log(1)),
model = ordered_probit
)
Run the code above in your browser using DataLab