R：如何在具有一个自定义函数的optim（）中指定渐变函数，同时保留其他有限差分近似值

Question

我需要的是渐变功能

f_gradient <- function(u, data) {
a <- u[1]
b <- u[1]
c(exp(data,a), fin-diff-approx(data,b))
}

如果gr为空，则应使用fin-diff-approx作为默认值 https://stat.ethz.ch/R-manual/R-devel/library/stats/html/optim.html

我试过看很多像这样的地方 how to propery specify a gradient function for use in optim() or other optimizer
Behavior of optim() function in R

optimx中有numDeriv支持 https://stat.ethz.ch/pipermail/r-help/2011-August/288541.html
http://cran.r-project.org/web/packages/optimx/optimx.pdf

但似乎没有人参考，我怎么能只用一个特殊的梯度函数来训练两个参数。非常感谢任何帮助和讨论