R code for Cleaning Data project