library(logitr)
# Estimate a preference space model
mnl_pref <- logitr(
data = yogurt,
outcome = "choice",
obsID = "obsID",
pars = c("price", "feat", "brand")
)
# Get the model.matrix design matrix
model.matrix(mnl_pref)
Run the code above in your browser using DataLab