data-raw/fact_opinion/fact_opinion-dataprep.R

In npaterno/data_hunter: Data set repository for OpenIntro textbooks

library(tidyverse)
library(foreign)

# load data --------------------------------------------------------------------------

raw_data <- read.spss("f_v_o_short_data.sav", to.data.frame = TRUE)

# cleaning: select data related to Q8 of survey and format to match source publication

fact_opinion <- raw_data %>%
  select(c("PPAGE","fact_fact","opinion_opinion")) %>%
  rename(age = PPAGE,
         fact_correct = fact_fact,
         opinion_correct = opinion_opinion) %>%
  mutate(age = as.numeric(as.character(age))) %>%
  mutate(age_group = case_when(age < 50 ~ "18-49",
                               TRUE ~ "50+")) %>%
  select(-age)

# Save -------------------------------------------------------------------------------

usethis::use_data(fact_opinion, overwrite = TRUE)