data(isric)
library(nlme)
library(minpack.lm)
pfdata=subset(isric,Country=="Benin")
suppressWarnings(
vn4.ns <- nlsList(y ~ SSvgm4(x,thr,ths,alp,nscal)|Sample,
data = pfdata,
control = nls.lm.control(maxiter=200)))
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