1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
\name{TravelMode}
\alias{TravelMode}
\title{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.
\describe{
\item{individual}{Factor indicating individual with levels \code{1} to \code{200}.}
\item{mode}{Factor indicating travel mode with levels
\code{"car"}, \code{"air"}, \code{"train"}, or \code{"bus"}.}
\item{choice}{Factor indicating choice with levels \code{"no"} and \code{"yes"}.}
\item{wait}{Terminal waiting time, 0 for car.}
\item{vcost}{Vehicle cost component.}
\item{travel}{Travel time in the vehicle.}
\item{gcost}{Generalized cost measure.}
\item{income}{Household income.}
\item{size}{Party size.}
}
}
\source{
Online complements to Greene (2003).
\url{http://pages.stern.nyu.edu/~wgreene/Text/tables/tablelist5.htm}
}
\references{
Greene, W.H. (2003). \emph{Econometric Analysis}, 5th edition. Upper Saddle River, NJ: Prentice Hall.
}
\seealso{\code{\link{Greene2003}}}
\examples{
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)
}
}
\keyword{datasets}
|
