Create run_analysis.R

Getting and Cleaning Data Project 1