Update run_analysis.R

Update 1