Script for Assignment one of Getting and Cleaning Data (run_analysis.R)