Create run_analysis.R

r code to build a tidy data set