Update run_Analysis.R