added some changes to run_analysis.R