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

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

Author: psolymos
Date: 2008-12-07 17:55:38 +0100 (Sun, 07 Dec 2008)
New Revision: 618

Modified:
   pkg/vegan/R/permatfull.R
Log:
permatfull enhancement


Modified: pkg/vegan/R/permatfull.R
===================================================================
--- pkg/vegan/R/permatfull.R	2008-12-07 16:53:56 UTC (rev 617)
+++ pkg/vegan/R/permatfull.R	2008-12-07 16:55:38 UTC (rev 618)
@@ -43,8 +43,9 @@
     if (any(tapply(str,list(str),length) == 1))
         stop("strata should contain at least 2 observations")
     perm <- list()
+    perm[[1]] <- matrix(0, n.row, n.col)
     for (k in 1:times)
-        perm[[k]] <- matrix(0, n.row, n.col)
+        perm[[k]] <- perm[[1]]
     for (j in 1:nstr) {
     id <- which(str == j)
         if (fixedmar == "none")