Create run_analysis.R

This is the code for the Project Assignment for Getting and Cleaning data