Create run_analysis.R

Code to generate tidy data set