Run analysis upload

R script for creating the 2 tidy data sets for the assignment.