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

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

Author: gsimpson
Date: 2011-08-30 17:41:06 +0200 (Tue, 30 Aug 2011)
New Revision: 1775

Modified:
   pkg/permute/R/shuffle.R
Log:
make shuffleSeries work like shuffleGrid


Modified: pkg/permute/R/shuffle.R
===================================================================
--- pkg/permute/R/shuffle.R	2011-08-30 15:39:14 UTC (rev 1774)
+++ pkg/permute/R/shuffle.R	2011-08-30 15:41:06 UTC (rev 1775)
@@ -64,8 +64,9 @@
                                    out[gr][shuffleFree(n.gr, n.gr)]
                                },
                                "series" =
-                               shuffleSeries(gr, mirror = control$within$mirror,
-                                             start = start, flip = flip),
+                               gr[shuffleSeries(seq_len(n.gr),
+                                                mirror = control$within$mirror,
+                                                start = start, flip = flip)],
                                "grid" =
                                gr[shuffleGrid(nrow = control$within$nrow,
                                               ncol = control$within$ncol,