[Vegan-commits] r298 - pkg/R

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

Author: gsimpson
Date: 2008-03-30 17:12:05 +0200 (Sun, 30 Mar 2008)
New Revision: 298

Modified:
   pkg/R/permuplot.R
Log:
fix bug in permuplot causing NOTE in R CMD check from r297

Modified: pkg/R/permuplot.R
===================================================================
--- pkg/R/permuplot.R	2008-03-30 15:01:42 UTC (rev 297)
+++ pkg/R/permuplot.R	2008-03-30 15:12:05 UTC (rev 298)
@@ -53,9 +53,9 @@
         if(control$type == "strata") {
             ## expand shade, col
             if(identical(length(col), 1))
-                col <- rep(col, n.gr)
+                col <- rep(col, n.grp)
             if(identical(length(shade), 1))
-                shade <- rep(shade, n.gr)
+                shade <- rep(shade, n.grp)
             ord <- sample(names(tab))
             if(is.null(xlim))
                 xlim <- c(0,1)