# NOT RUN {
### Load data
xNormal <- runif(100)
outcomeNormal <- 1 + 2*xNormal + rnorm(100, mean=0, sd=0.5)
### Parameters
b = list(a=1, m=2)
### normalDensity settings
normalDensity_settings <- list(
outcomeNormal = outcomeNormal,
xNormal = 2*xNormal,
mu = 1,
sigma = 0.5
)
### Compute choice probabilities using MNL model
apollo_normalDensity(normalDensity_settings, functionality="estimate")
# }
Run the code above in your browser using DataLab