Publications by Molly Lewis
Document
PAIRWISE_GRIMMER_PATH <- here("analyses/15_validate_distance/grimmer_pairwise_distances.csv") pairwise_tib <- read_csv(PAIRWISE_GRIMMER_PATH) Here are the words I explored: unique(pairwise_tib$word) ## [1] "announces" "city" "department" "important" ## [5] "jobs" "need" "support" "taxes" ...
41 sym Python (1769 sym/5 pcs) 1 img
Document
SWOW_MODEL_INPATH <- here("analyses/15_validate_distance/data/sample_model_swow_distances.csv") all_distances <- read_csv(SWOW_MODEL_INPATH) SWOW_PATH <- here("analyses/15_validate_distance/data/strength.SWOW-EN.R1.csv") swow1 <- read_tsv(SWOW_PATH) %>% clean_names() Small world of words - people vs. model swow_wiki <- inner_join(swow1, all...
599 sym Python (4055 sym/19 pcs) 8 img 3 tbl
Document
ETS_CLUSTER_CORR_PATH <- here("analyses/02_concreteness_semantics/data/ets/mean_cluster_corrs/") cluster_ets <- map_df(list.files(ETS_CLUSTER_CORR_PATH, full.names = T), ~read_csv(., col_names = c("cluster", "same", "cor", "sd", "n", "lang1", "lang2", "nclusters"))) %>% filter(!is.na(cor)) # aggregate within language pa...
7 sym R (2615 sym/5 pcs) 2 img
Document
ETS_CLUSTER_CORR_PATH <- here("analyses/02_concreteness_semantics/data/ets/mean_cluster_corrs/") cluster_ets <- map_df(list.files(ETS_CLUSTER_CORR_PATH, full.names = T), ~read_csv(., col_names = c("cluster", "same", "cor", "sd", "n", "lang1", "lang2", "nclusters"))) %>% filter(!is.na(cor)) # aggregate within language pa...
22 sym R (4021 sym/6 pcs) 3 img
Document
ETS_CLUSTER_CORR_PATH <- here("analyses/02_concreteness_semantics/data/ets/lang_pairwise_semantics_correlations_ets_by_cluster.csv") WIKI_CLUSTER_CORR_PATH <- here("analyses/02_concreteness_semantics/data/wiki/lang_pairwise_semantics_correlations_wiki_by_cluster.csv") cluster_ets <- read_csv(ETS_CLUSTER_CORR_PATH, col_na...
195 sym R (12217 sym/25 pcs) 1 img 2 tbl
Document
scores SCORE_METADATA <- here("data/raw/models/all_model/merged_metadata.csv") meta_data <- read_csv(SCORE_METADATA) meta_data %>% summarize(mean_score = mean(score), sd_score = sd(score)) %>% kable(digits = 2) mean_score sd_score 3.51 0.91 Disinctiveness by score group All LANG_NAME_PATH <- here("data/processed/lang_names/...
603 sym R (6751 sym/22 pcs) 2 img 6 tbl
Document
PAGEVIEWS_PATH <- here("analyses/10_wikipedia_stats/data/processed/page_views_by_language.csv") PRODUCITIVY_PATH <- here("analyses/10_wikipedia_stats/data/raw/wiki_productivity.csv") NARTICLES_PATH <- here("analyses/10_wikipedia_stats/data/raw/num_articles.tsv") LANG_NAMES <- here('analyses/04_predicting_semantic_sim/data/lang_distance_metrics/li...
1008 sym R (2721 sym/4 pcs) 1 tbl