OPSR (version 1.0.1)

telework_data: Telework Data

Description

Telework data as used in Wang+Mokhtarian:2024;textualOPSR.

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+Mokhtarian:2024OPSR

Examples

# \donttest{

## 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)

# }