Create run_analysis.R

run_analysis.R creation