mlogit (version 0.3-0)

ModeCanada: Mode Choice for the Montreal-Toronto Corridor

Description

a cross-section

number of observations : 3880

observation : individuals

Usage

data(ModeCanada)

Format

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.

References

Bhat, Chandra R. (1995) “A heteroscedastic extreme value model of intercity travel mode choice”, Transportation Research Part B, 29(6), 471-483.

Koppelman Franck S. and Chieh-Hua Wen (2001) “The paired combinatorial logit model:properties, estimation and application”, Transportation Research Part B, 75-89.

Wen, Chieh-Hua and Franck S. Koppelman (2001) “The generalized nested logit model”, Transportation Research Part B, 627-641.

Examples

# NOT RUN {
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'))

# }
# NOT RUN {
<!-- % use the subset of users who have the four alternatives available and who -->
# }
# NOT RUN {
<!-- % don't take the bus -->
# }
# NOT RUN {
# }
# NOT RUN {
<!-- % bususers <- with(ModeCanada, case[choice == 1 & alt == "bus"]) -->
# }
# NOT RUN {
<!-- % ModeCanada <- subset(ModeCanada, !case %in% bususers) -->
# }
# NOT RUN {
<!-- % ModeCanada <- subset(ModeCanada, nchoice == 4) -->
# }
# NOT RUN {
<!-- % ModeCanada <- subset(ModeCanada, alt != "bus") -->
# }
# NOT RUN {
<!-- % ModeCanada$alt <- ModeCanada$alt[drop = TRUE] -->
# }
# NOT RUN {
<!-- % KoppWen00 <- mlogit.data(ModeCanada, shape='long', chid.var = 'case', -->
# }
# NOT RUN {
<!-- %                          alt.var = 'alt', choice='choice', -->
# }
# NOT RUN {
<!-- %                          drop.index=TRUE) -->
# }
# NOT RUN {
<!-- % mlogit(choice~freq+cost+ivt+ovt, KoppWen00, reflevel='car') -->
# }
# NOT RUN {
<!-- % z <- mlogit(choice~freq+cost+ivt+ovt, KoppWen00, reflevel='car', nests="pcl") -->
# }
# NOT RUN {
# }