telework_data {OPSR} | R Documentation |
Telework data
Description
Telework data as used in Wang and Mokhtarian (2024).
Usage
telework_data
Format
Data frame with numeric columns
- id
Respondent ID
- weight
Sample weight
- vmd
Weekly vehicle-miles traveled
- vmd_ln
Log-transformed VMD, the dependent variable of the outcome model
- twing_status
Teleworking status: 1=Non-TWer, 2=Non-usual TWer, 3=Usual TWer
- female
Sex: female
- age_mean
Mean-centered age
- age_mean_sq
Sqaure of mean-centered age
- race_white
Race: white only
- race_black
Race: black only
- race_other
Race: other
- edu_1
Education: high school or lower
- edu_2
Education: some college
- edu_3
Education: BA or higher
- hhincome_1
Household income: less than $50,000
- hhincome_2
Household income: $50,000 to $99,999
- hhincome_3
Household income: $100,000 or more
- flex_work
Flexible work schedule
- work_fulltime
Full-time worker
- twing_feasibility
Teleworking feasibility (days/month)
- vehicle
Number of household vehicles
- child
Number of children
- urban
Residential location: urban
- suburban
Residential location: suburban
- smalltown
Residential location: small town
- rural
Residential location: rural
- att_prolargehouse
Attitude: pro-large-house
- att_proactivemode
Attitude: pro-active-mode
- att_procarowning
Attitude: pro-car-owning
- att_wif
Attitude: work-interferes-with-family
- att_proteamwork
Attitude: pro-teamwork
- att_tw_effective_teamwork
Attitude: TW effective teamwork
- att_tw_enthusiasm
Attitude: TW enthusiasm
- att_tw_location_flex
Attitude: TW location flexibility
- region_waa
Region indicator: respondents from WAA MSA
References
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.
Examples
## 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)