Explaining the R script run_analysis