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

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

Author: psolymos
Date: 2008-12-07 06:55:14 +0100 (Sun, 07 Dec 2008)
New Revision: 613

Modified:
   pkg/vegan/R/permatswap.R
Log:
C call modified


Modified: pkg/vegan/R/permatswap.R
===================================================================
--- pkg/vegan/R/permatswap.R	2008-12-06 17:58:15 UTC (rev 612)
+++ pkg/vegan/R/permatswap.R	2008-12-07 05:55:14 UTC (rev 613)
@@ -61,11 +61,11 @@
                      ## if fills are equal, no need to do it quasiswap
                     if (sum(perm[[i]][id,] > 0) != sum(m[id,] > 0)) {
                         tmp <- .C("rswapcount",
-                                    as.double(perm[[i]][id,]),
+                                    m = as.double(perm[[i]][id,]),
                                     as.integer(nrow(perm[[i]][id,])),
                                     as.integer(ncol(perm[[i]][id,])),
                                     as.integer(sum(m[id,] > 0)),
-                                    PACKAGE="vegan")[[1]]
+                                    PACKAGE="vegan")$m
                         perm[[i]][id,] <- matrix(tmp, nrow(perm[[i]][id,]), ncol(perm[[i]][id,]))
                 } else perm[[i]][id,] <- commsimulator(temp, method=method)
             }