aboutsummaryrefslogtreecommitdiff
path: root/R/drfit.R
diff options
context:
space:
mode:
authorranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-07-15 11:11:26 +0000
committerranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-07-15 11:11:26 +0000
commit86e56128b7ca0eae433f5796364fc81d98e87fd3 (patch)
treefe5467388849bb09eae4a05519bbd7dcf2e63548 /R/drfit.R
parent3e1ab23d4c457386882473a4de3b76b4c327f3b3 (diff)
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
Diffstat (limited to 'R/drfit.R')
-rw-r--r--R/drfit.R4
1 files changed, 2 insertions, 2 deletions
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()

Contact - Imprint