updating the run_analysis.R