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

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

Author: gsimpson
Date: 2013-11-05 05:33:01 +0100 (Tue, 05 Nov 2013)
New Revision: 2648

Modified:
   pkg/permute/R/shuffle2.R
Log:
revised version of r2647

Modified: pkg/permute/R/shuffle2.R
===================================================================
--- pkg/permute/R/shuffle2.R	2013-11-05 04:27:07 UTC (rev 2647)
+++ pkg/permute/R/shuffle2.R	2013-11-05 04:33:01 UTC (rev 2648)
@@ -35,7 +35,6 @@
     plotCTRL <- getPlots(control)
     ## ...which need to be reduced to only those for `ind`
     Pstrata <- Pstrata[ind]
-    plotCTRL <- plotCTRL[ind]
 
     n <- length(ind)
     sn <- seq_len(n)
@@ -52,7 +51,7 @@
             perm <- sn
         } else {                               ## YES
             flip <- runif(1L) < 0.5 ## logical, passed on & used only if mirroring
-            perm <- shuffleStrata(Pstrata[ind], ## take only the ind values
+            perm <- shuffleStrata(Pstrata,
                                   type = typeP,
                                   mirror = plotCTRL$mirror,
                                   flip = flip,