run_analysis.R submitted