Added the R script run_analysis.R