Update run_anaysis.R