diff options
| author | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2005-10-10 11:22:01 +0000 |
|---|---|---|
| committer | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2005-10-10 11:22:01 +0000 |
| commit | c8c7112c5d2ed4f1ddcbd9179b52b8e3d6d76f8e (patch) | |
| tree | 09187bde407d9e8f1b480e90e58140c341aab2ee /R | |
| parent | 40deb7367e66fe47e1df12cf00893aac172f5d2b (diff) | |
Change the position of the legend in the checkplate and checksubstance functions
to topleft instead of topright.
git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@40 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
Diffstat (limited to 'R')
| -rw-r--r-- | R/drfit.R | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -523,7 +523,7 @@ checkplate <- function(plate,db="cytotox") points(log10(drdatalist[[i]]$conc),drdatalist[[i]][[responsetype]],col=i); } - legend("topright",substances, pch=1, col=1:length(substances), inset=0.05) + legend("topleft",substances, pch=1, col=1:length(substances), inset=0.05) title(main=paste("Plate ",plate," - ",levels(platedata$experimentator)," - ",levels(platedata$type))) } } @@ -579,7 +579,7 @@ checksubstance <- function(substance,db="cytotox",experimentator="%",celltype="% points(log10(platelist[[i]]$conc),platelist[[i]][[responsetype]],col=i); } - legend("topright", plates, pch=1, col=1:length(plates), inset=0.05) + legend("topleft", plates, pch=1, col=1:length(plates), inset=0.05) title(main=paste(substance," - ",levels(data$experimentator)," - ",levels(data$type))) cat("Substanz ",substance,"\n", |