Update run_analysis.R

Update the script