Fixed a bug in run_analysis.R