Update run_analysis.R

Slight modifications to make it faster