diff options
| -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", |