small adjust in run_analysis.R