Create run_analysis.R

Creating .R file