data_local.R

library(dplyr)

df_spacebar <- read.csv("data-raw/datasets/button_press.csv") %>%
  as_tibble() %>%
  rename(trial = trialn,
         t = rt)

df_contrasts1 <- read.csv("data-raw/datasets/contrasts1.csv") %>%
  as_tibble() %>% mutate(F = factor(F))

df_contrasts2 <- read.csv("data-raw/datasets/contrasts2.csv") %>%
  as_tibble() %>% mutate(F = factor(F))

df_contrasts3 <- read.csv("data-raw/datasets/contrasts3.csv") %>%
  as_tibble() %>% mutate(F = factor(F))

df_contrasts4 <- read.csv("data-raw/datasets/contrasts4.csv") %>%
  as_tibble() %>% mutate(A = factor(A), B = factor(B))

df_contrasts5 <- read.csv("data-raw/datasets/contrasts5.csv") %>%
  as_tibble() %>% mutate(F = factor(F), id = factor(id))

df_contrasts6 <- read.csv("data-raw/datasets/contrasts6.csv") %>%
  as_tibble() %>% mutate(F = factor(F), id = factor(id))

df_contrasts7 <- read.csv("data-raw/datasets/contrasts7.csv") %>%
  as_tibble() %>% mutate(A = factor(A), B = factor(B))

df_BF <- read.csv("data-raw/datasets/BF.csv") %>%
  as_tibble() %>% mutate(F = factor(F))


df_gg05_complete <- read.csv("data-raw/datasets/GrodnerGibson2005E1.csv") %>%
  as_tibble() %>%
    filter(item != 0) %>%
    mutate(word_position = ifelse(item != 15 &
                                             word_position > 10,
                                             word_position-1,
                                             word_position)) %>%
  rename(RT= rawRT, subj = subject)
#there is a mistake in the coding of word position,
#all items but 15 have regions 10 and higher coded
#as words 11 and higher

## get data from relative clause verb:
df_gg05_rc <- df_gg05_complete %>%
  filter((condition == "objgap" & word_position == 6 ) |
            ( condition == "subjgap" & word_position == 4 )) %>%
  select(-word_position, -region_position)



df_fallacy <- read.csv("data-raw/datasets/conj_fallacy.csv", header = TRUE) %>% as_tibble()

df_schizophrenia <- read.csv("data-raw/datasets/BelinRubin1990.csv") %>%
  tidyr::pivot_longer(cols = starts_with("rt"), names_to = "trial", values_to = "rt") %>%
  mutate(trial = stringr::str_remove(trial, "rt_"))

usethis::use_data(df_spacebar, df_contrasts1, df_contrasts2, df_contrasts3, df_contrasts4, df_contrasts5, df_contrasts6, df_contrasts7, df_BF, df_gg05_complete, df_gg05_rc, df_fallacy, df_schizophrenia, overwrite = TRUE)