R script fot Data Cleaning Assignment