Travel Mode Choice Data
Data on travel mode choice for travel between Sydney and Melbourne, Australia.
data("TravelMode")A data frame containing 840 observations on 4 modes for 210 individuals.
Factor indicating individual with levels 1 to 210.
Factor indicating travel mode with levels
"car", "air", "train", or "bus".
Factor indicating choice with levels "no" and "yes".
Terminal waiting time, 0 for car.
Vehicle cost component.
Travel time in the vehicle.
Generalized cost measure.
Household income.
Party size.
Online complements to Greene (2003).
Greene, W.H. (2003). Econometric Analysis, 5th edition. Upper Saddle River, NJ: Prentice Hall.
data("TravelMode", package = "AER")
## overall proportions for chosen mode
with(TravelMode, prop.table(table(mode[choice == "yes"])))
## travel vs. waiting time for different travel modes
library("lattice")
xyplot(travel ~ wait | mode, data = TravelMode)
## Greene (2003), Table 21.11, conditional logit model
library("mlogit")
TravelMode$incair <- with(TravelMode, income * (mode == "air"))
tm_cl <- mlogit(choice ~ gcost + wait + incair, data = TravelMode,
shape = "long", alt.var = "mode", reflevel = "car")
summary(tm_cl)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.