Minor run_analysis.R update

Minor update, still needs work