[Vegan-commits] r265 - pkg/R

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

Author: gsimpson
Date: 2008-03-19 14:33:17 +0100 (Wed, 19 Mar 2008)
New Revision: 265

Modified:
   pkg/R/numPerms.R
Log:
Fixes bug in number of perms when permuting levels of 'strata'

Modified: pkg/R/numPerms.R
===================================================================
--- pkg/R/numPerms.R	2008-03-18 13:38:36 UTC (rev 264)
+++ pkg/R/numPerms.R	2008-03-19 13:33:17 UTC (rev 265)
@@ -42,7 +42,7 @@
                 nobs
         }
     } else if(control$type == "strata") {
-        exp(lfactorial(length(levels(control$strata)))) * unique(tab.strata)
+        exp(lfactorial(length(levels(control$strata))))
     } else {
         stop("Ambiguous permutation type in 'control$type'")
     }