Publications by Molly Lewis
Document
DATA_PATH <- here("data/processed/syntactic_bootstrapping_tidy_data_molly.csv") ma_data <- read_csv(DATA_PATH) %>% mutate(row_id = 1:n()) %>% mutate(agent_argument_type2 = case_when(str_detect(agent_argument_type, "pronoun") ~ "pronoun", TRUE ~ "noun"), transitive_event_type2 = case_when(tr...
853 sym R (7078 sym/16 pcs) 3 img
Document
Data description CLEANED_RESPONSES_DF <- here("data/processed/character_norming/exp1/exp1_response_data.csv") cleaned_responses_with_norms <- read_csv(CLEANED_RESPONSES_DF) %>% mutate(gender_group = fct_relevel(gender_group, "male-biased", "neutral")) Average N judgments per book: n_judgments <- cleaned_responses_with_norms %>% distinct(bo...
1322 sym R (18260 sym/31 pcs) 4 img
Document
Introduction Trying to pick back up the question of how different developmental phenomnena relate to one another and how they change over time. Open questions: is growth (in ES) logarithmic, exponential, linear, etc.? are phenomena all growing from the same zero point or are there offsets (e.g., do somethings “start” later or does all learni...
2340 sym R (55021 sym/24 pcs) 3 img
Frank tablet visualization
TIMEPOINTS_PATH <- here("data/frank_tablet_2016/processed_data/aoi_timepoints.csv") aoi_timepoints <- read_csv(TIMEPOINTS_PATH) TRIALS_PATH <- here("data/frank_tablet_2016/processed_data/trials.csv") trials <- read_csv(TRIALS_PATH) ADMINS_PATH <-here("data/frank_tablet_2016/processed_data/administrations.csv") admins <- read_csv(ADMINS_PATH) %>...
7 sym R (1290 sym/1 pcs) 1 img
Document
concreteness analyses CORRS_BY_WORD <- here("analyses/thompson_analyses/data/corrs_by_word.csv") THOMPSON_ALIGN_BY_WORD <- here("analyses/thompson_analyses/data/thompson_words_with_alignments.csv") BRYSBAERT_PATH <- here("analyses/02_concreteness_semantics/data/brysbaert_corpus.csv") corrs_by_word <- read_csv(CORRS_BY_WORD) thompson_alignment_b...
1266 sym R (5499 sym/26 pcs) 6 img
Document
Typicality UTTS_WITH_TYPICALITY <- here("exploratory_analyses/01_adj_typicality/data/utts_with_bergey_typicality.csv") utts_with_typicality <- read_csv(UTTS_WITH_TYPICALITY) by_participant_data <- utts_with_typicality %>% filter(speaker == "mother") %>% pivot_longer(cols = turker_judgment:ldp_similarity, names_to = "measure") %>% #distinc...
475 sym R (10141 sym/20 pcs) 6 img