From 86e56128b7ca0eae433f5796364fc81d98e87fd3 Mon Sep 17 00:00:00 2001
From: ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>
Date: Fri, 15 Jul 2005 11:11:26 +0000
Subject: drplot now uses the "topright" argument to specify the position of
 the legend, both for single substance plots and for overlay plots.

git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@27 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
---
 R/drfit.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'R/drfit.R')

diff --git a/R/drfit.R b/R/drfit.R
index 59deb6a..db7bf50 100644
--- a/R/drfit.R
+++ b/R/drfit.R
@@ -335,7 +335,7 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95,
                         xlab=paste("Decadic Logarithm of the dose in ", unit),    
                         ylab="Normalized response")
                 }
-                if (!overlay) legend(lx, ly, i,lty = 1, col = color)
+                if (!overlay) legend("topright", i,lty = 1, col = color, inset=0.05)
                 tmp$dosefactor <- factor(tmp$dose)  # necessary because the old
                                                     # factor has all levels, not 
                                                     # only the ones tested with
@@ -402,7 +402,7 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95,
             }
         }
     }
-    if (overlay) legend(lx, ly, dsubstances,lty = 1, col = colors)
+    if (overlay) legend("topright", dsubstances,lty = 1, col = colors, inset=0.05)
     if (overlay && (postscript || png)) {
         if (devoff) {
             dev.off()
-- 
cgit v1.2.1