Update run_analysis.R

Passed Unit testing - as well as manual independent testing via Excel pivot

Looks good for submission.