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

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

Author: gsimpson
Date: 2013-06-12 22:13:19 +0200 (Wed, 12 Jun 2013)
New Revision: 2524

Modified:
   pkg/permute/R/allPerms.R
Log:
allPerms needs to pass nperms on to doAllPerms

Modified: pkg/permute/R/allPerms.R
===================================================================
--- pkg/permute/R/allPerms.R	2013-06-12 20:12:33 UTC (rev 2523)
+++ pkg/permute/R/allPerms.R	2013-06-12 20:13:19 UTC (rev 2524)
@@ -45,7 +45,8 @@
     for (i in seq_along(spl)) {
         out[[i]] <-
             doAllPerms(spl[[i]], strataP, typeW, typeP, mirrorW,
-                       mirrorP, constantW, dimW, dimP, control)
+                       mirrorP, constantW, dimW, dimP, control,
+                       nperms = nperms)
     }
 
     ## bind all the blocks together
@@ -65,7 +66,7 @@
 }
 
 `doAllPerms` <- function(obs, strataP, typeW, typeP, mirrorW, mirrorP,
-                         constantW, dimW, dimP, control) {
+                         constantW, dimW, dimP, control, nperms) {
     ## replicate a matrix by going via a list and bind together
     repMat <- function(mat, n) {
         res <- rep(list(mat), n)