how to propery specify a gradient function for use in optim() or other optimizer how to propery specify a gradient function for use in optim() or other optimizer r r