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

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

Author: gsimpson
Date: 2013-11-30 23:05:56 +0100 (Sat, 30 Nov 2013)
New Revision: 2780

Modified:
   pkg/permute/R/allPerms.R
Log:
fix a bug in recombining the sets of all permutations for each block

Modified: pkg/permute/R/allPerms.R
===================================================================
--- pkg/permute/R/allPerms.R	2013-11-30 21:49:11 UTC (rev 2779)
+++ pkg/permute/R/allPerms.R	2013-11-30 22:05:56 UTC (rev 2780)
@@ -61,7 +61,8 @@
     }
 
     ## bind all the blocks together
-    out <- do.call(rbind, out) ## hmm are any of these the same shape?
+    out <- do.call(cbind, out) ## hmm are any of these the same shape?
+    out[, unlist(spl)] <- out
 
     if(!(observed <- getObserved(control))) {
         obs.v <- seq_len(n)