Created run_analysis.R script to tidy up provided wearable computing data set