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

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

Author: gsimpson
Date: 2013-06-10 22:01:53 +0200 (Mon, 10 Jun 2013)
New Revision: 2506

Modified:
   pkg/permute/R/allFree.R
Log:
clean up

Modified: pkg/permute/R/allFree.R
===================================================================
--- pkg/permute/R/allFree.R	2013-06-10 20:00:18 UTC (rev 2505)
+++ pkg/permute/R/allFree.R	2013-06-10 20:01:53 UTC (rev 2506)
@@ -1,15 +1,3 @@
-## `allFree` <- function(n, v = 1:n)
-## {
-##     if( n == 1 ) {
-##         matrix(v, 1, 1)
-##     } else {
-##         X <- NULL
-##         for(i in 1:n)
-##             X <- rbind(X, cbind(v[i], Recall(n-1, v[-i])))
-##         X
-##     }
-## }
-
 ## Modified version of allFree() provided by Doug Bates
 ## via personal email on 19 Jan 2012
 `allFree` <- function(n, v = seq_len(n)) {