Update run_analysis.R

Needs to get cleaned up - but looks like it's working. Also need to do a manual check to make sure the mean by measure is correct