Publications by Molly Lewis
Document
VMEASURE_DATA <- here("analyses/11_cluster_control/data/ets_cluster_vmeasure.csv") vmeasure_data <- read_csv(VMEASURE_DATA) mean_vmeasure <- vmeasure_data %>% group_by(n_clusters) %>% multi_boot_standard(col = "vmeasure") %>% rename(vmeasure = mean) %>% mutate(lang = "average") vmeasure_data %>% filter(lang == "en") %>% bind_rows(me...
9 sym R (587 sym/2 pcs) 1 img
Document
ETS_CLUSTER_CORR_PATH <- here("analyses/11_cluster_control/data/mean_cluster_corrs_native/") cluster_ets <- map_df(list.files(ETS_CLUSTER_CORR_PATH, full.names = T), ~read_csv(., col_names = c("cluster", "same", "nclusters", "cor", "lang1", "lang2"))) %>% filter(!is.na(cor)) # aggregate within language pairs language_p...
15 sym R (1748 sym/2 pcs) 1 img
Document
Do kids with different perceptual abilities learn words in a different order? ATYPICAL_CDI_PATH <- here("data/word_level_CDI/") files <- list.files(ATYPICAL_CDI_PATH, full.names = T) hi_wg <- read_csv(files[1]) %>% mutate(subj_id = paste0("hi_", 1:n()), group = "hi", form = "WG") %>% pivot_longer(cols = 6:494, ...
452 sym R (18115 sym/16 pcs) 2 img
Document
CORDS_BY_WORD <- here("analyses/13_thompson_analyses/data/thompson_wiki_word_coordinates.csv") tsne_dims <- read_csv(CORDS_BY_WORD) %>% mutate(source = fct_relevel(source, "TRL")) ggplot(tsne_dims, aes(x = tsne_X, y = tsne_Y, color = source, alpha = source)) + #scale_color_continuous(low = "white", high = "red") + scale_color_manual(values ...
12 sym R (809 sym/4 pcs) 3 img
xling concreteness
TIDY_PATH <- here("analyses/11_xling_concreteness_norms/data/tidy/") BRYSBAERT_ENG_CONC <- "/Users/mollylewis/Documents/research/Projects/2_published/ref_complex/corpus/brysbaert_database/brysbaert_corpus.csv" eng_norms <- read.csv(BRYSBAERT_ENG_CONC) %>% as_tibble() %>% clean_names() %>% select(word, conc_m, conc_sd) %>% rename(english_...
85 sym R (1529 sym/5 pcs) 2 img 1 tbl
Document
Local-Global difference for wikiepedia, by language INFILE <- here("analyses/02_concreteness_semantics/data/local_global_conc.csv") conc_in_out_wiki1 <- read_csv(INFILE) %>% filter(corpus == "wiki") conc_in_out_wiki2 <- conc_in_out_wiki1 %>% rename(lang1 = lang2, lang2 = lang1) conc_in_out_wiki <- conc_in_out_wiki2 %>% bind_rows(c...
65 sym R (1337 sym/6 pcs) 2 img
Document
CORR_INFILE <- here("analyses/07_frequency_control/data/lang_pairwise_word_freq_corrs_10.csv") corr_infile <- read_csv(CORR_INFILE) spearman_cor <- corr_infile %>% filter(method == "Spearman's rank correlation rho") ggplot(spearman_cor, aes(x = estimate)) + geom_histogram(alpha = .9) + xlab("Cross-linguistic word frequency correlation (r...
110 sym R (480 sym/2 pcs) 1 img
Document
Core functions from broom package: glance() (model fit), tidy() (model parameters), and augment() (data values). Also: visdat::vis_dat(), rsample::initial_split, car::vif(), yarstick::conf_mat(), GGally::ggpairs() and interactions::interact_plot(). 1 Examine data 1.1 Overview head(penguins) summary(penguins) nrow(penguins) 1.2 Examine missing ...
9194 sym R (9122 sym/44 pcs) 6 img 2 tbl