Mode Choice for the Montreal-Toronto Corridor
A sample of 3880 travellers for the Montreal-Toronto corridor
A dataframe containing
case: the individual index,
alt: the alternative, one of train, car, bus and air,
choice: one if the mode is chosen, zero otherwise,
cost: monetary cost,
ivt: in vehicule time,
ovt: out vehicule time,
frequency: frequency,
income: income,
urban: urban,
noalt: the number of alternatives available.
kindly provided by S. Koppelman
Bhat CR (1995). “A heteroscedastic extreme value model of intercity travel mode choice.” Transportation Research Part B: Methodological, 29(6), 471 - 483. ISSN 0191-2615, https://www.sciencedirect.com/science/article/pii/0191261595000156.
Koppelman FS, Wen C (2000). “The paired combinatorial logit model: properties, estimation and application.” Transportation Research Part B: Methodological, 34(2), 75 - 89. ISSN 0191-2615, https://www.sciencedirect.com/science/article/pii/S0191261599000120.
Wen C, Koppelman FS (2001). “The generalized nested logit model.” Transportation Research Part B: Methodological, 35(7), 627 - 641. ISSN 0191-2615, https://www.sciencedirect.com/science/article/pii/S019126150000045X.
data("ModeCanada", package = "mlogit")
bususers <- with(ModeCanada, case[choice == 1 & alt == "bus"])
ModeCanada <- subset(ModeCanada, ! case %in% bususers)
ModeCanada <- subset(ModeCanada, noalt == 4)
ModeCanada <- subset(ModeCanada, alt != "bus")
ModeCanada$alt <- ModeCanada$alt[drop = TRUE]
KoppWen00 <- mlogit.data(ModeCanada, shape='long', chid.var = 'case',
alt.var = 'alt', choice = 'choice',
drop.index = TRUE)
pcl <- mlogit(choice ~ freq + cost + ivt + ovt, KoppWen00, reflevel = 'car',
nests = 'pcl', constPar = c('iv:train.air'))Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.