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

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

Author: gsimpson
Date: 2011-06-18 00:54:25 +0200 (Sat, 18 Jun 2011)
New Revision: 1638

Modified:
   pkg/permute/R/allPerms.R
Log:
new version of bar() as BAR()

Modified: pkg/permute/R/allPerms.R
===================================================================
--- pkg/permute/R/allPerms.R	2011-06-17 21:35:12 UTC (rev 1637)
+++ pkg/permute/R/allPerms.R	2011-06-17 22:54:25 UTC (rev 1638)
@@ -9,6 +9,12 @@
             res[[i]] <- mat
         do.call(rbind, res)
     }
+    BAE <- function(mat, n) {
+        res <- list()
+        res[[1]] <- mat
+        res <- rep(res, n)
+        do.call(rbind, res)
+    }
     ## start
     v <- n
     ## expand n if a numeric or integer vector of length 1