telework_data {OPSR} | R Documentation |
Telework data as used in Wang and Mokhtarian (2024).
telework_data
Data frame with numeric columns
Respondent ID
Sample weight
Weekly vehicle-miles traveled
Log-transformed VMD, the dependent variable of the outcome model
Teleworking status: 1=Non-TWer, 2=Non-usual TWer, 3=Usual TWer
Sex: female
Mean-centered age
Sqaure of mean-centered age
Race: white only
Race: black only
Race: other
Education: high school or lower
Education: some college
Education: BA or higher
Household income: less than $50,000
Household income: $50,000 to $99,999
Household income: $100,000 or more
Flexible work schedule
Full-time worker
Teleworking feasibility (days/month)
Number of household vehicles
Number of children
Residential location: urban
Residential location: suburban
Residential location: small town
Residential location: rural
Attitude: pro-large-house
Attitude: pro-active-mode
Attitude: pro-car-owning
Attitude: work-interferes-with-family
Attitude: pro-teamwork
Attitude: TW effective teamwork
Attitude: TW enthusiasm
Attitude: TW location flexibility
Region indicator: respondents from WAA MSA
Wang X, Mokhtarian PL (2024). “Examining the Treatment Effect of Teleworking on Vehicle-Miles Driven: Applying an Ordered Probit Selection Model and Incorporating the Role of Travel Stress.” Transportatikon Research Part A, 186, 104072. doi:10.1016/j.tra.2024.104072.
## model as in Xinyi & Mokhtarian (2024)
f <-
## ordinal and continuous outcome
twing_status | vmd_ln ~
## selection model
edu_2 + edu_3 + hhincome_2 + hhincome_3 +
flex_work + work_fulltime + twing_feasibility +
att_proactivemode + att_procarowning +
att_wif + att_proteamwork +
att_tw_effective_teamwork + att_tw_enthusiasm + att_tw_location_flex |
## outcome model NTW
female + age_mean + age_mean_sq +
race_black + race_other +
vehicle + suburban + smalltown + rural +
work_fulltime +
att_prolargehouse + att_procarowning +
region_waa |
## outcome model NUTW
edu_2 + edu_3 + suburban + smalltown + rural +
work_fulltime +
att_prolargehouse + att_proactivemode + att_procarowning |
## outcome model UTW
female + hhincome_2 + hhincome_3 +
child + suburban + smalltown + rural +
att_procarowning +
region_waa
fit <- opsr(f, telework_data)
texreg::screenreg(fit, beside = TRUE, include.pseudoR2 = TRUE, include.R2 = TRUE)