R script for Getting and Cleaning Data project