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

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

Author: jarioksa
Date: 2008-12-07 17:24:01 +0100 (Sun, 07 Dec 2008)
New Revision: 616

Modified:
   pkg/vegan/R/permatswap.R
Log:
Cancelling rev614:613

Modified: pkg/vegan/R/permatswap.R
===================================================================
--- pkg/vegan/R/permatswap.R	2008-12-07 15:38:20 UTC (rev 615)
+++ pkg/vegan/R/permatswap.R	2008-12-07 16:24:01 UTC (rev 616)
@@ -63,11 +63,11 @@
                     if (sum(perm[[i]][id,] > 0) != sum(m[id,] > 0)) {
                         tmp <- .C("rswapcount",
                                     m = as.double(perm[[i]][id,]),
-                                    as.integer(n.row),
-                                    as.integer(n.col),
+                                    as.integer(nrow(perm[[i]][id,])),
+                                    as.integer(ncol(perm[[i]][id,])),
                                     as.integer(sum(m[id,] > 0)),
                                     PACKAGE="vegan")$m
-                        attributes(perm[[i]][id,]) <- att
+                        perm[[i]][id,] <- matrix(tmp, nrow(perm[[i]][id,]), ncol(perm[[i]][id,]))
                 } else perm[[i]][id,] <- commsimulator(temp, method=method)
             }
             thin <- burnin <- 0