Updated with Solution

Updated run_analysis.R with Solution