Create run_analysis.R

Pasted R Script into Repository