# NOT RUN {
params <- params_mlogit(coefs = array(
c(matrix(c(intercept = 0, treatment = log(.75)), nrow = 1),
matrix(c(intercept = 0, treatment = log(.8)), nrow = 1)),
dim = c(1, 2, 2)
))
# }
Run the code above in your browser using DataLab