Create run_analysis.R

Getting and Cleaning Data  - Project Assignment