aboutsummaryrefslogtreecommitdiff
path: root/R/drfit.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/drfit.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