Я в настоящее время являюсь частью исследовательского проекта, и он имеет дело с Вложенными Логит-моделями и потребительским выбором. Я искал в Интернете пример кода для Nested Logit Models, но я не могу понять, что происходит, когда существует перекрывающийся выбор потребителя (В двух гнездах есть один и тот же выбор потребителя, например, EC-охлаждение в гнезде 1но также и охлаждение EC в гнезде 2) / как смоделировать это в коде модели вложенного логита для R. Вот пример кода, который я использую, чтобы разобраться:
library("mlogit")
data("HC", package = "mlogit")
HC <- mlogit.data(HC, varying = c(2:8, 10:16), choice = "depvar", shape = "wide")
cooling.modes <- index(HC)$alt %in% c('gcc', 'ecc', 'erc', 'hpc')
room.modes <- index(HC)$alt %in% c('erc', 'er')
# installation / operating costs for cooling are constants,
# only relevant for mixed systems
HC$icca[!cooling.modes] <- 0
HC$occa[!cooling.modes] <- 0
# create income variables for two sets cooling and rooms
HC$inc.cooling <- HC$inc.room <- 0
HC$inc.cooling[cooling.modes] <- HC$income[cooling.modes]
HC$inc.room[room.modes] <- HC$income[room.modes]
# create an intercet for cooling modes
HC$int.cooling <- as.numeric(cooling.modes)
# estimate the model with only one nest elasticity
nl <- mlogit(depvar ~ ich + och +icca + occa + inc.room + inc.cooling + int.cooling | 0, HC,
nests = list(cooling = c('gcc','ecc','erc','hpc'),
other = c('gc', 'ec', 'er')), un.nest.el = TRUE)
summary(nl)