Message-ID: <4D7DD4B3.8070800@uni-muenster.de>
Date: 2011-03-14T08:41:23Z
From: Edzer Pebesma
Subject: R2 values from SSErr fit.variogram attribute
In-Reply-To: <A4BAB50B-4C91-4022-BEBF-D6F5F433DE8F@gmail.com>
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