[Vegan-commits] r602 - in pkg/vegan: R man

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

Author: psolymos
Date: 2008-12-03 19:45:37 +0100 (Wed, 03 Dec 2008)
New Revision: 602

Modified:
   pkg/vegan/R/plot.nestedtemp.R
   pkg/vegan/man/nestedtemp.Rd
Log:
label argument modified in plot.nestedtemp


Modified: pkg/vegan/R/plot.nestedtemp.R
===================================================================
--- pkg/vegan/R/plot.nestedtemp.R	2008-12-01 19:04:59 UTC (rev 601)
+++ pkg/vegan/R/plot.nestedtemp.R	2008-12-03 18:45:37 UTC (rev 602)
@@ -11,8 +11,14 @@
     image(z, axes = FALSE, col = col, ...)
     box()
     lines(x$smooth$x, 1 - x$smooth$y)
-    if (names) {
-        axis(3, at = seq(0,1,len=ncol(x$u)), labels=colnames(x$u), las=2, ...)
-        axis(2, at = seq(1,0,len=nrow(x$u)), labels=rownames(x$u), las=2,...)
+    if (length(names) == 1)
+        names <- rep(names, 2)
+    if (names[1]) {
+        axis(2, at = seq(1, 0, len = nrow(x$u)), labels = rownames(x$u),
+            las = 2, ...)
     }
+    if (names[2]) {
+        axis(3, at = seq(0, 1, len = ncol(x$u)), labels = colnames(x$u),
+            las = 2, ...)
+    }
 }

Modified: pkg/vegan/man/nestedtemp.Rd
===================================================================
--- pkg/vegan/man/nestedtemp.Rd	2008-12-01 19:04:59 UTC (rev 601)
+++ pkg/vegan/man/nestedtemp.Rd	2008-12-03 18:45:37 UTC (rev 602)
@@ -33,7 +33,8 @@
   \item{x}{Result object for a \code{plot}.}
   \item{col}{Colour scheme for matrix temperatures.}
   \item{kind}{The kind of plot produced.}
-  \item{names}{Label columns and rows in the plot using names in \code{comm}.}
+  \item{names}{Label columns and rows in the plot using names in \code{comm}.
+    If it is a logical vector of length 2, row and column labels are returned accordingly.}
   \item{\dots}{Other arguments to functions.}
 }