[GRASS-SVN] r51906 - grass-addons/grass7/raster/r.regression.multi

[svn_grass at osgeo.org]

Author: mmetz
Date: 2012-05-31 06:30:22 -0700 (Thu, 31 May 2012)
New Revision: 51906

Modified:
   grass-addons/grass7/raster/r.regression.multi/Makefile
   grass-addons/grass7/raster/r.regression.multi/main.c
Log:
fix global F

Modified: grass-addons/grass7/raster/r.regression.multi/Makefile
===================================================================
--- grass-addons/grass7/raster/r.regression.multi/Makefile	2012-05-31 13:17:39 UTC (rev 51905)
+++ grass-addons/grass7/raster/r.regression.multi/Makefile	2012-05-31 13:30:22 UTC (rev 51906)
@@ -3,7 +3,7 @@
 PGM = r.regression.multi
 
 LIBES = $(RASTERLIB) $(GISLIB) $(MATHLIB)
-DEPENDENCIES = $(GISDEP) $(RASTERDEP)
+DEPENDENCIES = $(RASTERDEP) $(GISDEP)
 
 include $(MODULE_TOPDIR)/include/Make/Module.make
 

Modified: grass-addons/grass7/raster/r.regression.multi/main.c
===================================================================
--- grass-addons/grass7/raster/r.regression.multi/main.c	2012-05-31 13:17:39 UTC (rev 51905)
+++ grass-addons/grass7/raster/r.regression.multi/main.c	2012-05-31 13:30:22 UTC (rev 51906)
@@ -446,7 +446,7 @@
     /* F statistic */
     /* F = ((SStot - SSerr) / (n_predictors)) / (SSerr / (count - n_predictors));
      * , or: */
-    F = ((SStot - SSerr) * (count - n_predictors)) / (SSerr * n_predictors);
+    F = ((SStot - SSerr) * (count - n_predictors - 1)) / (SSerr * (n_predictors));
     fprintf(stdout, "F=%f\n", F);
 
     i = 0;