Create run_analysis.R

Create run_analysis.R