(Almost?) complete run_analysis.R script