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

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

Author: gsimpson
Date: 2013-11-05 05:27:07 +0100 (Tue, 05 Nov 2013)
New Revision: 2647

Modified:
   pkg/permute/R/shuffle2.R
Log:
reduce control components to within-block samples only

Modified: pkg/permute/R/shuffle2.R
===================================================================
--- pkg/permute/R/shuffle2.R	2013-11-05 04:23:55 UTC (rev 2646)
+++ pkg/permute/R/shuffle2.R	2013-11-05 04:27:07 UTC (rev 2647)
@@ -33,6 +33,9 @@
     ## collect strata at Plot level
     Pstrata <- getStrata(control, which = "plots", drop = TRUE)
     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)