## Attach sample data (isric data) from the package
data(isric)
pf <- subset(isric, Sample=="Italy5")
library(minpack.lm)
ruso.ns <- nlsLM(y ~ Ruso(x,thr,ths,alp,nscal), data=pf,
control = nls.lm.control(maxiter=200),
start = c(thr= Dstart(pf)[1], ths = Dstart(pf)[2],
alp= Dstart(pf)[3], nscal=Dstart(pf)[4]))
coef(ruso.ns)
Run the code above in your browser using DataLab