AER (version 1.2-6)

TravelMode: Travel Mode Choice Data

Description

Data on travel mode choice for travel between Sydney and Melbourne, Australia.

Usage

data("TravelMode")

Format

A data frame containing 840 observations on 4 modes for 210 individuals.

individual

Factor indicating individual with levels 1 to 200.

mode

Factor indicating travel mode with levels "car", "air", "train", or "bus".

choice

Factor indicating choice with levels "no" and "yes".

wait

Terminal waiting time, 0 for car.

vcost

Vehicle cost component.

travel

Travel time in the vehicle.

gcost

Generalized cost measure.

income

Household income.

size

Party size.

References

Greene, W.H. (2003). Econometric Analysis, 5th edition. Upper Saddle River, NJ: Prentice Hall.

See Also

Greene2003

Examples

# NOT RUN {
data("TravelMode")

## 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
if(require("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)
}
# }