Adding R script and cleaned data file