[R-sig-Geo] R2 values from SSErr fit.variogram attribute

[Edzer Pebesma]

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