[Analogue-commits] r191 - pkg/R

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

Author: gsimpson
Date: 2010-07-09 22:55:57 +0200 (Fri, 09 Jul 2010)
New Revision: 191

Modified:
   pkg/R/Stratiplot.R
Log:
fix bug in ylim processing

Modified: pkg/R/Stratiplot.R
===================================================================
--- pkg/R/Stratiplot.R	2010-07-04 19:04:18 UTC (rev 190)
+++ pkg/R/Stratiplot.R	2010-07-09 20:55:57 UTC (rev 191)
@@ -81,7 +81,7 @@
         minLim <- min(ylim)
         maxLim <- max(ylim)
         ## add padY * range as per base graphics
-        diffy <- abs(diff(minLim, maxLim))
+        diffy <- abs(diff(c(minLim, maxLim)))
         ylim <- if(minLim > maxLim)
             c(minLim + (padY * diffy), maxLim - (padY * diffy))
         else