aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-10-10 11:22:01 +0000
committerranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-10-10 11:22:01 +0000
commitc8c7112c5d2ed4f1ddcbd9179b52b8e3d6d76f8e (patch)
tree09187bde407d9e8f1b480e90e58140c341aab2ee /R
parent40deb7367e66fe47e1df12cf00893aac172f5d2b (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.R4
1 files changed, 2 insertions, 2 deletions
diff --git a/R/drfit.R b/R/drfit.R
index fe76f86..45343e2 100644
--- a/R/drfit.R
+++ b/R/drfit.R
@@ -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",

Contact - Imprint