updated run_analysis.R script

Clarified some comments