Create run_analysis.R

Project Submission 1