Create Get_Clean_Data_Rscript.R

Initial Upload of R Script to clean and tidy the data