Create run_analysis.R

This is the Run Analysis Script