Update run_analysis.R

Fix a bug