edits made to run_analysis.R script, including adding set to output