Created the final run_analysis.R file