[Vegan-commits] r1164 - in pkg/vegan: R inst

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

Author: jarioksa
Date: 2010-03-03 12:52:24 +0100 (Wed, 03 Mar 2010)
New Revision: 1164

Modified:
   pkg/vegan/R/densityplot.oecosimu.R
   pkg/vegan/inst/ChangeLog
Log:
densityplot.oecosimu gave a superfluous warning if there was only one statistic & one panel

Modified: pkg/vegan/R/densityplot.oecosimu.R
===================================================================
--- pkg/vegan/R/densityplot.oecosimu.R	2010-03-03 11:51:22 UTC (rev 1163)
+++ pkg/vegan/R/densityplot.oecosimu.R	2010-03-03 11:52:24 UTC (rev 1164)
@@ -5,7 +5,8 @@
     sim <- t(x$oecosimu$simulated)
     obs <- x$oecosimu$statistic
     nm <- names(obs)[col(sim)]
-    densityplot( ~ as.vector(sim) | factor(nm, levels = nm), xlab = xlab,
+    densityplot( ~ as.vector(sim) | factor(nm, levels = unique(nm)),
+                xlab = xlab,
                 panel = function(x, ...) {
                     panel.densityplot(x, ...)
                     panel.abline(v = obs[panel.number()], ...)

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2010-03-03 11:51:22 UTC (rev 1163)
+++ pkg/vegan/inst/ChangeLog	2010-03-03 11:52:24 UTC (rev 1164)
@@ -4,6 +4,9 @@
 
 Version 1.18-2 (opened February 18, 2010)
 
+	* densityplot.oecosimu: gives no warning if there is only one
+	statistic and hence only one panel.
+
 	* nesteddisc: failed if highest species frequencies were tied. The
 	error message was "Error: dims [prodcut 15] do not match the
 	length of object [0]". Found by Eric Fuchs in the help forum of