Update goal.R