Create run_analysis.R

Code for creating tidy data set