R script for Data Cleaning Assignment