Update run_analysis.R

Update of coding after review.