[Vegan-commits] r350 - pkg/R

[noreply at r-forge.r-project.org]

Author: jarioksa
Date: 2008-05-13 15:42:04 +0200 (Tue, 13 May 2008)
New Revision: 350

Modified:
   pkg/R/fieller.MOStest.R
Log:
rev349 simplified...

Modified: pkg/R/fieller.MOStest.R
===================================================================
--- pkg/R/fieller.MOStest.R	2008-05-13 13:38:04 UTC (rev 349)
+++ pkg/R/fieller.MOStest.R	2008-05-13 13:42:04 UTC (rev 350)
@@ -4,7 +4,7 @@
     smodel <- summary(object$mod)
     var <- smodel$cov.scaled
     fam <- family(object$mod)
-    od <- summary(object$mod)$dispersion
+    od <- smodel$dispersion
     k <- coef(object$mod)
     b2 <- -2 * k[3]
     u <- -k[2]/2/k[3]