[Vegan-commits] r522 - pkg/R

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

Author: jarioksa
Date: 2008-10-07 16:13:51 +0200 (Tue, 07 Oct 2008)
New Revision: 522

Modified:
   pkg/R/ordiParseFormula.R
Log:
take care that item names are not NULL in cca/rda/capscale

Modified: pkg/R/ordiParseFormula.R
===================================================================
--- pkg/R/ordiParseFormula.R	2008-10-06 11:04:20 UTC (rev 521)
+++ pkg/R/ordiParseFormula.R	2008-10-07 14:13:51 UTC (rev 522)
@@ -40,6 +40,16 @@
             Y <- Y[, -xint, drop = FALSE]
         }
     }
+    rownames(X) <- rownames(X, do.NULL = FALSE)
+    colnames(X) <- colnames(X, do.NULL = FALSE)
+    if (!is.null(Y)) {
+        rownames(Y) <- rownames(Y, do.NULL = FALSE)
+        colnames(Y) <- colnames(Y, do.NULL = FALSE)
+    }
+    if (!is.null(Z)) {
+        rownames(Z) <- rownames(Z, do.NULL = FALSE)
+        colnames(Z) <- colnames(Z, do.NULL = FALSE)
+    }
     list(X = X, Y = Y, Z = Z, terms = terms(fla, width.cutoff = 500), 
         terms.expand = terms(flapart, width.cutoff = 500), modelframe = mf)
 }