changed type in run_analysis.R