Create run_analysis.R

Modified run_analysis.R