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

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

Author: gsimpson
Date: 2010-02-28 16:40:06 +0100 (Sun, 28 Feb 2010)
New Revision: 1155

Modified:
   pkg/permute/R/allGrid.R
Log:
allGrid calling allSeries incorrectly

Modified: pkg/permute/R/allGrid.R
===================================================================
--- pkg/permute/R/allGrid.R	2010-02-28 15:13:07 UTC (rev 1154)
+++ pkg/permute/R/allGrid.R	2010-02-28 15:40:06 UTC (rev 1155)
@@ -5,11 +5,7 @@
     idx <- 1
     ## ncol == 2 is special case
     if(nc == 2) {
-        X <- allSeries(n,
-                       permControl(within =
-                                   Within(type = "series",
-                                          mirror = mirror,
-                                          constant = constant)))
+        X <- allSeries(n, nperms = nperms, mirror = mirror)
     } else {
         for(i in seq_len(nr)) {
             for(j in seq_len(nc)) {