Create run_analysis.R

Getting and Cleaning Data Assignment