# NOT RUN {
# Run a MNL model in the Preference Space:
library(logitr)
mnl_pref <- logitr(
data = yogurt,
choiceName = "choice",
obsIDName = "obsID",
parNames = c("price", "feat", "dannon", "hiland", "yoplait")
)
# Get the WTP implied from the preference space model
wtp(mnl_pref, priceName = "price")
# }
Run the code above in your browser using DataLab