Update run_analysis.R

Tidy up the source code.