Added a heading to the run_analysis.R script file