dmnp <- design(
Rlevels = c("left", "right"),
factors = list(subjects = 1, S = c("left", "right")),
formula = list(utility ~ 0 + S),
matchfun = function(d) d$S == d$lR,
model = multinomial_probit
)
Run the code above in your browser using DataLab