R script 'run_analysis()'  for course Getting and Cleaning Data