Update run_analysis.R

finished gd for now