R script for Course Project "Getting and Cleaning Data"