data(isric)
pf <- subset(isric, Sample=="Italy4")
library(minpack.lm)
tani.ns <- nlsLM(y ~ Tani(x,thr,ths,alp), data = pf,
control = nls.lm.control(maxiter=200),
start = c(thr=Dstart(pf)[1],ths=Dstart(pf)[2], alp=Dstart(pf)[3]))
coef(tani.ns)
Run the code above in your browser using DataLab