Modify run_analysis.R with new function to merge and clean data