Course Project for R Getting and Cleaning Data