[Vegan-commits] r1311 - pkg/vegan/R

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

Author: jarioksa
Date: 2010-09-22 16:35:32 +0200 (Wed, 22 Sep 2010)
New Revision: 1311

Modified:
   pkg/vegan/R/plot.decorana.R
Log:
switch to points when row/column names are NULL

Modified: pkg/vegan/R/plot.decorana.R
===================================================================
--- pkg/vegan/R/plot.decorana.R	2010-09-17 13:06:23 UTC (rev 1310)
+++ pkg/vegan/R/plot.decorana.R	2010-09-22 14:35:32 UTC (rev 1311)
@@ -61,12 +61,12 @@
         abline(v = x$origin[choices[1]], lty = 3)
     }
     if (type != "none" && (display == "both" || display == "sites")) {
-        if (type == "text") 
+        if (type == "text" && !is.null(sitnam)) 
             text(sites, sitnam, cex = cex, col = cols[1])
         else points(sites, cex = cex, col = cols[1])
     }
     if (type != "none" && (display == "both" || display == "species")) {
-        if (type == "text") 
+        if (type == "text" && !is.null(spenam)) 
             text(specs, spenam, cex = cex, col = cols[2])
         else points(specs, pch = "+", cex = cex, col = cols[2])
     }