Initial checkin R script for the Getting and Cleaning Data Course Project