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

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

Author: psolymos
Date: 2011-09-10 00:48:52 +0200 (Sat, 10 Sep 2011)
New Revision: 1831

Modified:
   pkg/vegan/R/permatfull.R
Log:
small fix to reworked permatfull

Modified: pkg/vegan/R/permatfull.R
===================================================================
--- pkg/vegan/R/permatfull.R	2011-09-09 22:48:31 UTC (rev 1830)
+++ pkg/vegan/R/permatfull.R	2011-09-09 22:48:52 UTC (rev 1831)
@@ -7,7 +7,7 @@
     fixedmar <- match.arg(fixedmar, c("none", "rows", "columns", "both"))
 
     if (is.null(strata))
-        str <- as.factor(rep(1, n.row))
+        str <- as.factor(rep(1, nrow(m)))
         else str <- as.factor(strata)[drop = TRUE]
 
     levels(str) <- 1:length(unique(str))