## Attach sample data (isric data) from the package
data(isric)
pf <- subset(isric, Sample=="Benin2")
library(minpack.lm)
suppressWarnings(
fredlund.ns <- nlsLM(y ~ SSfredlund(x,thr,ths,alp,nscal,mscal), data=pf,
control = nls.lm.control(maxiter=200)))
coef(fredlund.ns)
plot(fitted(fredlund.ns)~pf$y)
Run the code above in your browser using DataLab