Course project from R Getting and Cleaning Data