R file

Adding the R script for clean data