Update run_analysis.R

Made corrections in the script to match what I ran locally.