Create run_analysis.R

Making a tidy data file