Added the missing function to run_analysis.R