Update run_analysis.R

Corrections to the tidy data set.