# NOT RUN {
data(isric)
require("minpack.lm")
kosugi.ns <- nlsLM(y ~ SSkosugi(x,thr,ths,alp,nscal),
data = subset(isric, Sample=="Benin2"),
control = nls.lm.control(maxiter=200,options(warn=-1)))
summary(kosugi.ns)
# }
Run the code above in your browser using DataLab