[GRASS-SVN] r51903 - grass/trunk/raster/r.regression.line

[svn_grass at osgeo.org]

Author: mlennert
Date: 2012-05-31 06:10:55 -0700 (Thu, 31 May 2012)
New Revision: 51903

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


Modified: grass/trunk/raster/r.regression.line/main.c
===================================================================
--- grass/trunk/raster/r.regression.line/main.c	2012-05-31 12:47:11 UTC (rev 51902)
+++ grass/trunk/raster/r.regression.line/main.c	2012-05-31 13:10:55 UTC (rev 51903)
@@ -129,7 +129,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);