[Vegan-commits] r1008 - pkg/vegan/R

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

Author: jarioksa
Date: 2009-09-16 16:59:29 +0200 (Wed, 16 Sep 2009)
New Revision: 1008

Modified:
   pkg/vegan/R/ordiParseFormula.R
Log:
rev1007 failed in partial models and package check failed

Modified: pkg/vegan/R/ordiParseFormula.R
===================================================================
--- pkg/vegan/R/ordiParseFormula.R	2009-09-15 13:51:06 UTC (rev 1007)
+++ pkg/vegan/R/ordiParseFormula.R	2009-09-16 14:59:29 UTC (rev 1008)
@@ -30,9 +30,9 @@
         Pterm <- paste(Pterm, collapse = "+")
         P.formula <- as.formula(paste("~", Pterm), env = environment(formula))
         zlev <- xlev[names(xlev) %in% Pterm]
-        mf <- model.frame(P.formula, mf, na.action = na.pass, 
+        zmf <- model.frame(P.formula, mf, na.action = na.pass, 
             xlev = zlev)
-        Z <- model.matrix(P.formula, mf)
+        Z <- model.matrix(P.formula, zmf)
         if (any(colnames(Z) == "(Intercept)")) {
             xint <- which(colnames(Z) == "(Intercept)")
             Z <- Z[, -xint, drop = FALSE]