Create run_analysis.R

R script used for the Getting and Cleaning  the Data project