Updated run_analysis.r