[Vegan-commits] r2763 - pkg/vegan/R

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

Author: jarioksa
Date: 2013-11-26 09:02:15 +0100 (Tue, 26 Nov 2013)
New Revision: 2763

Modified:
   pkg/vegan/R/anovacca.R
Log:
use setBlocks<-

Modified: pkg/vegan/R/anovacca.R
===================================================================
--- pkg/vegan/R/anovacca.R	2013-11-26 04:58:25 UTC (rev 2762)
+++ pkg/vegan/R/anovacca.R	2013-11-26 08:02:15 UTC (rev 2763)
@@ -15,7 +15,7 @@
             stop("'strata' can be used only with simple permutation or with 'how()'")
         if (!is.null(permutations$block))
             stop("'strata' cannot be applied when 'blocks' are defined in 'how()'")
-        permutations <- update(permutations, blocks = strata)
+        setBlocks(permutations) <- strata
     }
     ## now permutations is either a how() structure or a permutation
     ## matrix. Make it to a matrix if it is "how"