Create run_analysis_2.R