[Vegan-commits] r517 - pkg/R

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

Author: jarioksa
Date: 2008-10-02 16:14:58 +0200 (Thu, 02 Oct 2008)
New Revision: 517

Modified:
   pkg/R/plot.radfit.R
Log:
plot.radfit: remove workaround for R < 2.1.0

Modified: pkg/R/plot.radfit.R
===================================================================
--- pkg/R/plot.radfit.R	2008-10-02 14:05:59 UTC (rev 516)
+++ pkg/R/plot.radfit.R	2008-10-02 14:14:58 UTC (rev 517)
@@ -16,13 +16,7 @@
     matlines(fv, lty = 1, lwd = lwd, ...)
     if (legend) {
         nm <- names(x$models)
-        if (getRversion() >= '2.1.0')
-            legend("topright", legend = nm, lty = 1, lwd = lwd, col = 1:6)
-        else {
-            usr <- par("usr")
-            legend(usr[2] * 0.5, 10^usr[4] * 0.9, legend = nm, lty = 1, 
-                   lwd = lwd, col = 1:6)
-        }
+        legend("topright", legend = nm, lty = 1, lwd = lwd, col = 1:6)
     }
     invisible(out)
 }