diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/drfit.R | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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() |