jonahmsimon

#Initialize/Load
setwd("/Users/jonahmsimon/R Workspace/Medium/Article 3")
tj <- read.csv('tj_list.csv')
savant_up <- read.csv('tj_savant_up.csv')

#Data Cleaning
library('dplyr')
library('stringr')
library('ggplot2')
library('caTools')