[Vegan-commits] r1660 - pkg/permute/R

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

Author: gsimpson
Date: 2011-06-29 00:54:03 +0200 (Wed, 29 Jun 2011)
New Revision: 1660

Modified:
   pkg/permute/R/shuffle.R
Log:
shuffle now works when no permutation; within and blocks 

Modified: pkg/permute/R/shuffle.R
===================================================================
--- pkg/permute/R/shuffle.R	2011-06-26 20:25:54 UTC (rev 1659)
+++ pkg/permute/R/shuffle.R	2011-06-28 22:54:03 UTC (rev 1660)
@@ -80,7 +80,8 @@
                    "grid" =
                    pGrid(nrow = control$within$nrow,
                          ncol = control$within$ncol,
-                         mirror = control$within$mirror)
+                         mirror = control$within$mirror),
+                   "none" = seq_len(n)
                    )
     } else {
         ## If strata present, either permute samples, strata or both