Added R script for loading and cleaning the supplied data set