R code for the project of Coursera class Getting and Cleaning Data