Changeset 859

Timestamp:

12/08/11 16:03:48 (18 months ago)

Author:

jjr8

Message:

Fixed #506: When model includes only one term, Fit GLM tool fails with RPy_RException: Error in vif(model) : model contains fewer than 2 terms

Files:

• MGET/Branches/Jason/PythonPackage/src/GeoEco/Statistics/SummarizeModel.r (modified) (2 diffs)

MGET/Branches/Jason/PythonPackage/src/GeoEco/Statistics/SummarizeModel.r

@@ -31 +31 @@
                    sep="")
     }
-    else
+    else    # It is a GLM.
     {
         vif <- function (mod, ...) 
@@ -65 +65 @@
         }
 
-        s = c(capture.output(summary(model), anova(model)), "", "Variance Inflation Factors:", "", capture.output(print(vif(model))))
+        if (length(labels(terms(model))) >= 2)
+            s = c(capture.output(summary(model), anova(model)), "", "Variance Inflation Factors:", "", capture.output(print(vif(model))))
+        else
+            s = c(capture.output(summary(model), anova(model)))
     }