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

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

Author: gsimpson
Date: 2011-08-30 17:57:53 +0200 (Tue, 30 Aug 2011)
New Revision: 1776

Modified:
   pkg/permute/R/shuffleSet.R
Log:
permuting in wrong place in case of non-constant AND free permutations within strata


Modified: pkg/permute/R/shuffleSet.R
===================================================================
--- pkg/permute/R/shuffleSet.R	2011-08-30 15:41:06 UTC (rev 1775)
+++ pkg/permute/R/shuffleSet.R	2011-08-30 15:57:53 UTC (rev 1776)
@@ -87,8 +87,8 @@
                                        "free" = shuffleFree,
                                        "series" = shuffleSeries,
                                        "grid" = shuffleGrid)
+                            tmp[i,][which(MATCH)] <- gr[do.call(FUN, Args)]
                         }
-                        tmp[i,][which(MATCH)] <- gr[do.call(FUN, Args)]
                     }
                 }
             }