R script for the course of Data Cleaning project