analysis/01_05_data-prep_attitude_lpa.R

In e-mcbride/covid19.commuting: Data Analysis Investigating COVID-19 Impact on Daily Travel

# build dataset for attitudes
library(tidyverse)
library(MplusAutomation)
library(here)

#import my function to write mplus data to file in the right file location
devtools::load_all()

# EM: New Data: more cases removed. Import new data with fewer cases
data_elim <- read_rds("analysis/data/derived_data/data-good-cases2.rds")
elim_pids <- data_elim %>% pull(pid)

data_mplus_ready <- read_rds(here("analysis/data/derived_data/data-mplus-ready.rds")) %>%
  filter(pid %in% elim_pids)# EM: New Data: more cases removed.


# vignette("vignette",package="MplusAutomation")

att_mplus <- data_mplus_ready %>%
  select(pid, starts_with("q_")) %>%
  data.frame()


write_mplus_data(df = att_mplus,
                 wd_for_analysis = here("analysis/Mplus/attitudes/"),
                 filename = "attitude-data-mplus-ready.dat",
                 writeData = "ifmissing",
                 hashfilename = TRUE)