Publications by Bria Long, Anya Ma (edit)

Publish Document

08.09.2023

Setup library(tidyverse) library(lubridate) library(ggthemes) library(mirt) library(knitr) library(dplyr) library(ggpubr) library(assertthat) Load data Read in aoa and other meta item_meta <- read_csv(file = here::here('data/preprocessed_data/exp1_all_trials2023-04-11.csv')) word1_aoa <- item_meta %>% distinct(Word1, AoA_Est_Word1) %>% renam...

6002 sym R (40507 sym/117 pcs) 15 img 3 tbl

Publish Document

05.09.2023

Setup library(tidyverse) library(lubridate) library(ggthemes) library(mirt) library(knitr) library(dplyr) library(ggpubr) Load data Load 2afc data, which has already been cleaned school_data_2afc_cleaned <- read_csv(file = here::here('data/preprocessed_data/all_preprocessed_data.csv')) %>% mutate(word1 = str_replace(word1, ' ', '.')) %>% mutat...

4493 sym R (32792 sym/78 pcs) 11 img 1 tbl

VisualVocab reliability

23.08.2023

Setup library(tidyverse) library(lubridate) library(ggthemes) # library(langcog) library(mirt) library(knitr) library("tidyverse") # for data wrangling library(dplyr) library(ggpubr) Load data 2afc data school_data_2afc_cleaned <- read_csv(file = here::here('data/preprocessed_data/all_preprocessed_data.csv')) %>% mutate(word1 = str_replace(word...

1758 sym R (11393 sym/37 pcs) 6 img

bing validation study first pass

11.08.2023

Setup Load libraries library(tidyverse) library(lubridate) library(ggthemes) library(langcog) library(mirt) library('ggpubr') library(knitr) library("tidyverse") # for data wrangling library(dplyr) library(here) Read in demographics bing_demo <- read_csv(here::here('data/validation_data/demographics.csv')) %>% as_tibble %>% select(SubID,...

1114 sym R (9243 sym/33 pcs) 7 img

multi-afc - april28

28.04.2023

Setup library(tidyverse) library(lubridate) library(ggthemes) library(langcog) library(mirt) library(knitr) library("tidyverse") # for data wrangling library(dplyr) Load data from multiafc task # pilot_data = read_csv("../../data/prolific_data/20230427_vocab_prolificMultiAFC_deidentified.csv") %>% # as_tibble() pilot_data = read_csv(here::here...

906 sym R (14126 sym/49 pcs) 8 img

multi-afc-adults

28.04.2023

Setup library(tidyverse) library(lubridate) library(ggthemes) library(langcog) library(mirt) library(knitr) library("tidyverse") # for data wrangling library(dplyr) Load data from multiafc task pilot_data = read_csv(here::here('data/data_multiafc/multi-afc-april28.csv')) %>% as_tibble() Load data and impose basic filtering requirements test_dat...

1053 sym R (14182 sym/49 pcs) 9 img

Multi-afc adults anlaysis

27.04.2023

Setup library(tidyverse) library(here) library(lubridate) library(ggthemes) library(langcog) library(mirt) library(knitr) Load data from multiafc task pilot_data = read_csv(here::here('data/data_multiafc/multi-afc-april27.csv')) %>% as_tibble() Load data and impose basic filtering requirements test_data <- pilot_data %>% mutate(day_took = lubr...

859 sym R (9262 sym/32 pcs) 5 img

234afc item selection

04.04.2023

Setup library(tidyverse) library(here) library(lubridate) library(ggthemes) library(langcog) library(mirt) library(knitr) ## set.seed(134) # for reproducibility Read in data pilot_data_filtered <- read_csv(file = here::here('data/preprocessed_data/all_preprocessed_data.csv')) %>% mutate(word1 = str_replace(word1, ' ', '.')) %>% mutate(word2 = ...

1021 sym R (10862 sym/41 pcs) 2 img

IRT analysis 3/17

17.03.2023

Setup library(tidyverse) library(here) library(lubridate) library(ggthemes) library(langcog) library(mirt) library(knitr) pilot_data_filtered <- read_csv(file = here::here('data/preprocessed_data/all_preprocessed_data.csv')) %>% mutate(word1 = str_replace(word1, ' ', '.')) %>% mutate(word2 = str_replace(word2, ' ', '.')) %>% mutate(item_pair ...

1065 sym R (47801 sym/35 pcs) 7 img 2 tbl

Document

16.03.2023

Setup library(tidyverse) library(here) library(lubridate) library(ggthemes) library(langcog) library(mirt) library(knitr) pilot_data_filtered <- read_csv(file = here::here('data/preprocessed_data/all_preprocessed_data.csv')) %>% mutate(word1 = str_replace(word1, ' ', '.')) %>% mutate(word2 = str_replace(word2, ' ', '.')) %>% mutate(item_pair ...

798 sym R (46428 sym/33 pcs) 6 img