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

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

Author: gsimpson
Date: 2011-08-24 10:03:33 +0200 (Wed, 24 Aug 2011)
New Revision: 1753

Modified:
   pkg/permute/R/allPerms.R
Log:
fix bug in definition of number of perms object

Modified: pkg/permute/R/allPerms.R
===================================================================
--- pkg/permute/R/allPerms.R	2011-08-24 08:02:46 UTC (rev 1752)
+++ pkg/permute/R/allPerms.R	2011-08-24 08:03:33 UTC (rev 1753)
@@ -23,10 +23,10 @@
     pcheck <- permCheck(v, control = control, make.all = FALSE)
     ctrl <- pcheck$control
     ## get max number of permutations
-    Nperms <- pcheck$n
+    nperms <- pcheck$n
     ## sanity check - don't let this run away to infinity
     ## esp with type = "free"
-    if(Nperms > max)
+    if(nperms > max)
         stop("Number of possible permutations too large (> 'max')")
     type.wi <- ctrl$within$type
     if(type.wi != "none") {