[GRASS-SVN] r51905 - grass/branches/releasebranch_6_4/raster/r.regression.line

[svn_grass at osgeo.org]

Author: mlennert
Date: 2012-05-31 06:17:39 -0700 (Thu, 31 May 2012)
New Revision: 51905

Modified:
   grass/branches/releasebranch_6_4/raster/r.regression.line/main.c
Log:
Correcting F statistic calculation 


Modified: grass/branches/releasebranch_6_4/raster/r.regression.line/main.c
===================================================================
--- grass/branches/releasebranch_6_4/raster/r.regression.line/main.c	2012-05-31 13:16:46 UTC (rev 51904)
+++ grass/branches/releasebranch_6_4/raster/r.regression.line/main.c	2012-05-31 13:17:39 UTC (rev 51905)
@@ -143,7 +143,7 @@
     sdY = sqrt(varY);
 
     A = meanY - B * meanX;
-    F = R * R / (1 - R * R / count - 2);
+    F = R * R / ((1 - R * R) / (count - 2));
 
     if (shell_style->answer) {
 	fprintf(stdout, "a=%f\n", A);