2

I am currently working with a self-starting function for four parameters which I based on SSfpl but with a different formula.

This is the formula for my self-starting function:

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

The code below is for SSfpl with a formula `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]))
```

I can't figure out how to set up the code above properly for my self-starting function. Any help is highly appreciated. Thank You.