Added the run_analysis R script