data-raw/decoy_3.R

In josh-mc/fabricated: Tools to Audit Survey Data Quality

## code to prepare `decoy_3` dataset goes here

decoy_3 <- read.csv("http://datacolada.org/appendix/74/Study 3 - Decoy Effect.csv")

decoy_3 <- decoy_3 %>%
  tidyr::pivot_longer(cols = Day1:Day40,
                      names_to = "day",
                      values_to = "weight") %>%
  dplyr::select(-Group..1.experimental.condition..2..control.condition.) %>%
  dplyr::rename(subject = Subject,
                workroom = WorkroomNo.)

usethis::use_data(decoy_3, overwrite = TRUE)