[Vegan-commits] r544 - pkg/R

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

Author: psolymos
Date: 2008-11-02 05:53:52 +0100 (Sun, 02 Nov 2008)
New Revision: 544

Modified:
   pkg/R/permatfull.R
Log:


Modified: pkg/R/permatfull.R
===================================================================
--- pkg/R/permatfull.R	2008-11-02 04:51:33 UTC (rev 543)
+++ pkg/R/permatfull.R	2008-11-02 04:53:52 UTC (rev 544)
@@ -16,7 +16,7 @@
 }
 bothshuffle <- function(x, y=1)
 {
-    x[x!=0] <- indshuffle(x[x!=0] - y) + 1
+    x[x!=0] <- indshuffle(x[x!=0] - y) + y
     return(sample(x))
 }
     if (!identical(all.equal(m, round(m)), TRUE))