Create run_analysis.R

Project Submission for Module 3 getting and cleaning data