| print.summary.choicer_nl | R Documentation |
Print summary for nested logit model
## S3 method for class 'summary.choicer_nl'
print(x, ...)
x |
A summary.choicer_nl object. |
... |
Additional arguments (ignored). |
The object invisibly.
library(data.table)
set.seed(42)
N <- 50; J <- 4
dt <- data.table(id = rep(1:N, each = J), alt = rep(1:J, N))
dt[, `:=`(x1 = rnorm(.N), x2 = rnorm(.N))]
dt[, nest := ifelse(alt <= 2, "A", "B")]
dt[, choice := 0L]
dt[, choice := sample(c(1L, rep(0L, J - 1))), by = id]
fit <- run_nestlogit(
data = dt, id_col = "id", alt_col = "alt", choice_col = "choice",
covariate_cols = c("x1", "x2"), nest_col = "nest"
)
print(summary(fit))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.