Create run_analysis.r