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

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

Author: jarioksa
Date: 2009-09-01 15:14:16 +0200 (Tue, 01 Sep 2009)
New Revision: 973

Modified:
   pkg/vegan/R/ordiParseFormula.R
Log:
stupid error in returning excluded community data from ordiParseFormula

Modified: pkg/vegan/R/ordiParseFormula.R
===================================================================
--- pkg/vegan/R/ordiParseFormula.R	2009-09-01 13:08:50 UTC (rev 972)
+++ pkg/vegan/R/ordiParseFormula.R	2009-09-01 13:14:16 UTC (rev 973)
@@ -48,8 +48,8 @@
     }
     ## Check and remove NA
     if (!is.null(nas)) {
+        excluded <- X[nas, , drop = FALSE]
         X <- X[-nas,, drop=FALSE]
-        excluded <- X[nas, , drop = FALSE]
         if (!is.null(Y)) {
             Y <- Y[-nas,, drop=FALSE]
             mf <- mf[-nas,, drop=FALSE]