R code for Getting and Cleaningdata_Course Project on Coursera