Publications by Molly Lewis
Document
DATA_PATH <- here("data/processed/syntactic_bootstrapping_tidy_data.csv") ma_data <- read.csv(DATA_PATH) %>% mutate(row_id = 1:n()) Forest Plot There are 53 effect sizes from 15 unique papers. get_MA_params <- function(moderator, df) { this_data <- df n = nrow(this_data) if (moderator == TRUE){ model <- rma.mv(d_calc ~ log(mean_a...
1034 sym R (14829 sym/19 pcs) 8 img 1 tbl
Document
BY_PAIR_MEANS <- here("experiments/conceptviz_2/data/by_item_means.csv") pair_means <- read_csv(BY_PAIR_MEANS) %>% mutate(log_haus_sim = log(haus_sim)) pair_means %>% ggplot(aes(x = mean, y = log_haus_sim, color = category)) + geom_point(alpha = .5) + geom_smooth(method = "lm") pair_means %>% group_by(category) %>% nest() %>% muta...
7 sym R (455 sym/3 pcs) 1 img 1 tbl
Document
Load data Distribution of all variables: tidy_df %>% pivot_longer(cols = 3:33) %>% ggplot(aes(x = value)) + geom_histogram() + facet_wrap(~name, scale = "free_x") + theme_classic() ## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`. ## Warning: Removed 102 rows containing non-finite values (stat_bin). Distribution of...
147 sym R (7214 sym/25 pcs) 5 img
Document
library(knitr) opts_chunk$set(echo = T, message = F, warning = F, error = F, cache = F, tidy = F) library(tidyverse) library(langcog) library(here) library(broom) theme_set(theme_classic(base_size = 10)) get_p_print <- function(p){ case_when(p < .0001 ~ "< .0001", p < .001 ~ "< .001", p < .01 ~ "< .01"...
1637 sym R (4236 sym/7 pcs) 2 img
Document
These analses are based on a list of 65 children’s “mathy” words I generated in an ad hoc way. You can see them in a google sheet here. MATH_WORDS <- "1GTdLmxLhIEa4hWCGf_relV54CcuVrqORKE1dS3Ajy0Q" math_words <- read_sheet(MATH_WORDS) CORPUS_PATH <- here("data/processed/books/tidy_full_corpus_all.csv") corpus <- read_csv(CORPUS_PATH) %>% ...
1189 sym R (4258 sym/11 pcs) 4 img
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...
443 sym R (21388 sym/40 pcs) 3 img