# NOT RUN {
data(isric)
require("nlme")
require("minpack.lm")
pfdata=subset(isric,Country=="Benin")
vn4.ns <- nlsList(y ~ SSvgm4(x,thr,ths,alp,nscal)|Sample,
data = pfdata,
control = nls.lm.control(maxiter=200,options(warn=-1)))
coef(vn4.ns)
plot(fitted(vn4.ns)~pfdata$y)
cor(fitted(vn4.ns),pfdata$y)^2
# }
Run the code above in your browser using DataLab