Nothing
## ----setup, include=FALSE, message=FALSE, warning=FALSE-----------------------
knitr::opts_chunk$set(
collapse = TRUE,
warning = FALSE,
message = FALSE,
fig.retina = 3,
comment = "#>"
)
## -----------------------------------------------------------------------------
library("logitr")
mnl_pref <- logitr(
data = yogurt,
outcome = 'choice',
obsID = 'obsID',
pars = c('price', 'feat', 'brand')
)
## -----------------------------------------------------------------------------
summary(mnl_pref)
## -----------------------------------------------------------------------------
coef(mnl_pref)
## -----------------------------------------------------------------------------
wtp_mnl_pref <- wtp(mnl_pref, scalePar = "price")
wtp_mnl_pref
## -----------------------------------------------------------------------------
mnl_wtp <- logitr(
data = yogurt,
outcome = 'choice',
obsID = 'obsID',
pars = c('feat', 'brand'),
scalePar = 'price',
# Since WTP space models are non-convex, run a multistart
numMultiStarts = 10,
# Use the computed WTP from the preference space model as the starting
# values for the first run:
startVals = wtp_mnl_pref$Estimate
)
## -----------------------------------------------------------------------------
summary(mnl_wtp)
## -----------------------------------------------------------------------------
coef(mnl_wtp)
## -----------------------------------------------------------------------------
wtpCompare(mnl_pref, mnl_wtp, scalePar = 'price')
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.