adding in final run_analysis.R script for project