Corrected a mistake in run_analysis.R