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