[Vegan-commits] r1560 - branches/1.17/R

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

Author: gsimpson
Date: 2011-03-30 15:48:09 +0200 (Wed, 30 Mar 2011)
New Revision: 1560

Modified:
   branches/1.17/R/plot.contribdiv.R
Log:
merge r1559 to 1.17 branch - minor tweak to plot code

Modified: branches/1.17/R/plot.contribdiv.R
===================================================================
--- branches/1.17/R/plot.contribdiv.R	2011-03-30 13:45:24 UTC (rev 1559)
+++ branches/1.17/R/plot.contribdiv.R	2011-03-30 13:48:09 UTC (rev 1560)
@@ -11,8 +11,12 @@
         ylim <- c(0, max(y))
     if (missing(col))
         col <- c("lightgrey", "darkgrey")
-    matplot(y, type = "n", sub=sub,xlab=xlab,ylab=ylab,...)
+    matplot(y, type = "n", sub=sub, xlab=xlab, ylab=ylab, axes = FALSE,
+            bty = "n", ...)
     polygon(c(1,1:nrow(y),nrow(y)), c(0,y$gamma,0), col=col[1])
     polygon(c(1,1:nrow(y),nrow(y)), c(0,y$alpha,0), col=col[2])
+    axis(side = 1)
+    axis(side = 2)
+    box()
     invisible(x)
 }