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