update in run_analysis.R

the old code had a bug