[Vegan-commits] r442 - pkg/R

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

Author: jarioksa
Date: 2008-07-06 17:37:30 +0200 (Sun, 06 Jul 2008)
New Revision: 442

Modified:
   pkg/R/permat.R
Log:
PACKAGE name in .C call in permatswap

Modified: pkg/R/permat.R
===================================================================
--- pkg/R/permat.R	2008-07-05 16:27:01 UTC (rev 441)
+++ pkg/R/permat.R	2008-07-06 15:37:30 UTC (rev 442)
@@ -86,7 +86,7 @@
                                swap = swapcount(temp),
                                Cswap = .C("swapcount", m = as.double(temp),
                                as.integer(n.row), as.integer(n.col),
-                               as.integer(1))$m)
+                               as.integer(1), PACKAGE = "vegan")$m)
         else
             for (k in 1:burnin)
                 temp <- commsimulator(temp, method=method)
@@ -98,7 +98,8 @@
                                          m = as.double(temp),
                                          as.integer(n.row),
                                          as.integer(n.col),
-                                         as.integer(thin))$m)                               else perm[[i]][id,] <- commsimulator(temp, method=method, thin=thin)
+                                         as.integer(thin),
+                                         PACKAGE = "vegan")$m)                               else perm[[i]][id,] <- commsimulator(temp, method=method, thin=thin)
             temp <- perm[[i]][id,]
         }
     }