Create run_analysis.r

run_analysis.r