我目前正在使用基于 SSfpl 但具有不同公式的四个参数的自启动功能。

这是我的自启动功能的公式：

(b1 * ((b2 * x)^b4)) / (1 + ((b2 * x)^b4))^(b3 / b4)

下面的代码适用于带有公式的 SSfpl A + (B - A)/(1 + exp((xmid - input)/scal))：

ir <- as.vector(coef(lm(x ~ I(log(prop/(1-prop))), data = xy)))
pars <- as.vector(coef(nls(y ~ cbind(1, 1/(1 + exp((xmid - x)/ exp(lscal)))), 


data = xy,


start = list(xmid = ir[1L],
lscal = log(abs(ir[2L]))),
algorithm = "plinear"))
value <- c(pars[3L], pars[3L] + pars[4L], pars[1L], exp(pars[2L]))

我不知道如何为我的自启动功能正确设置上面的代码。非常感谢任何帮助。谢谢你。