Create run_analysis.R

Add the "run_analysis.R" file