R：将函数添加到派生表中

Question

我的最终目标是获得nls（）近似值，而无需起始参数。

为此，我使用selfStart（）函数。但是，它要求模型函数位于派生表中。

我打印以下内容：

Gauss <- function(z, A, sigma, z0, C){
  C + A/sigma * (2*pi)^(-0.5) * exp(-(z-z0)^2/(2*sigma^2))
}

drule[["Gauss"]] = alist(z = -A/sigma*(2*pi)^(-0.5)*(z - z0)*exp(-(z- 
z0)^2/(2*sigma^2))/(sigma^2), A = NULL, sigma = NULL, z0 = NULL, C = NULL)

但是，我仍然收到错误消息““ Gauss”函数不在派生表中。“

有人知道，为什么不算数？

如果我将drule $ Gauss写入控制台，它将显示派生的OK。

谢谢。