data(isric)
library(minpack.lm)
suppressWarnings(
kosugi.ns <- nlsLM(y ~ SSkosugi(x,thr,ths,alp,nscal),
data = subset(isric, Sample=="Benin2"),
control = nls.lm.control(maxiter=200)))
summary(kosugi.ns)
Run the code above in your browser using DataLab