diff options
| author | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2005-07-15 11:11:26 +0000 |
|---|---|---|
| committer | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2005-07-15 11:11:26 +0000 |
| commit | 86e56128b7ca0eae433f5796364fc81d98e87fd3 (patch) | |
| tree | fe5467388849bb09eae4a05519bbd7dcf2e63548 | |
| parent | 3e1ab23d4c457386882473a4de3b76b4c327f3b3 (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
| -rw-r--r-- | DESCRIPTION | 6 | ||||
| -rw-r--r-- | R/drfit.R | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/DESCRIPTION b/DESCRIPTION index d8b55a7..c9de7dc 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,10 +1,10 @@ Package: drfit -Version: 0.03-26 -Date: 2005-07-07 +Version: 0.03-27 +Date: 2005-07-16 Title: Dose-response data evaluation Author: Johannes Ranke <jranke@uni-bremen.de> Maintainer: Johannes Ranke <jranke@uni-bremen.de> -Depends: R,stats,RODBC +Depends: R (>=2.1.0),stats,RODBC Description: drfit provides basic functions for fitting dose-response curves to dose-response data, calculating some (eco)toxicological parameters and plotting the results. Functions that are fitted are the cumulative densitiy @@ -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() |