R2 values from SSErr fit.variogram attribute
On 03/14/2011 01:14 AM, S?bastien Durand wrote:
SStot<- sum(weig*(vario$gamma-mean(vario$gamma))2)
Not having tried, my guess is you need to sum the squared weighted residuals, not the weighted squared residuals, so SStot <- sum((weig*(vario$gamma-mean(vario$gamma)))^2)
Edzer Pebesma Institute for Geoinformatics (ifgi), University of M?nster Weseler Stra?e 253, 48151 M?nster, Germany. Phone: +49 251 8333081, Fax: +49 251 8339763 http://ifgi.uni-muenster.de http://www.52north.org/geostatistics e.pebesma at wwu.de