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

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

Author: gsimpson
Date: 2014-01-26 20:39:48 +0100 (Sun, 26 Jan 2014)
New Revision: 2844

Modified:
   pkg/permute/R/allPerms.R
Log:
reverse a small part of earlier fix which removed a reindex of the observations at the allPerms level

Modified: pkg/permute/R/allPerms.R
===================================================================
--- pkg/permute/R/allPerms.R	2014-01-26 19:21:11 UTC (rev 2843)
+++ pkg/permute/R/allPerms.R	2014-01-26 19:39:48 UTC (rev 2844)
@@ -65,7 +65,7 @@
 
     ## bind all the blocks together
     ## out <- do.call(cbind, out) ## hmm are any of these the same shape?
-    ##out[, unlist(spl)] <- out  ## is this being done at the doAllPerms level?
+    out[, unlist(spl)] <- out  ## is this being done at the doAllPerms level?
 
     if(!(observed <- getObserved(control))) {
         obs.v <- seq_len(n)