Functional programming 使用nls和ssLogis创建函数时出错

我正在尝试编写一个函数，用于使用nls和自启动选项ssLogis拟合逻辑曲线。我有一些数据，实际上是一个数据框，所以这第一步就是要得到一个类似于我将要处理的数据设置

int <- c(.1, .2, .5, .8, 1.5, 2.5, 4.1, 6.1, 8.8, 13.8, 25.5, 29.2, 35, 37.9, 41.4)
yr2 <- 1:15
newdata <- data.frame(int, yr2)

然后，我得到这个错误：

Error in SSlogis(ind, phi1, phi2, phi3) : object 'phi2' not found

---

phi2是一个用ssLogis估计的参数，所以我迷路了。这在函数之外运行起来就像一个champ。

我无法重现您提到的错误。我建议您更新到R的最新版本，并确保您使用的所有软件包都是最新的。但是，代码中有两个错误：

使用（您的数据，行（seq（0，max（ind），1），预测（log.ss，data.frame）（ind=seq（0，max（ind），1 40;))））

---

我无法重现你提到的错误。我建议您更新到R的最新版本，并确保您使用的所有软件包都是最新的。但是，代码中有两个错误：

使用（您的数据，行（seq（0，max（ind），1），预测（log.ss，data.frame）（ind=seq（0，max（ind），1 40;))））

p

log.fit(int, yr2, newdata)

Error in SSlogis(ind, phi1, phi2, phi3) : object 'phi2' not found