Create run_analysis.R

Script to process data and create tidy data set