Update run_analysis.R

small bug correct