run_analysis.R script from Getting and Cleaning Data