R script for Getting and Cleaning Data Course Project