aboutsummaryrefslogtreecommitdiff
path: root/R/drfit.R
diff options
context:
space:
mode:
authorranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-03-14 06:10:41 +0000
committerranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-03-14 06:10:41 +0000
commit78400199cd3e00b294cc5b441e150770fc57393d (patch)
tree65b03f71dcd5a6f60387295c1f0494d2dfbd2a88 /R/drfit.R
parentd058b612743fc0b15f38d53ca5d1de1ea3bb6eb5 (diff)
Added the option to leave the graphics file device open in drplot().
git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@18 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
Diffstat (limited to 'R/drfit.R')
-rw-r--r--R/drfit.R8
1 files changed, 6 insertions, 2 deletions
diff --git a/R/drfit.R b/R/drfit.R
index 9516180..7ffb1a0 100644
--- a/R/drfit.R
+++ b/R/drfit.R
@@ -215,7 +215,7 @@ drfit <- function(data, startlogEC50 = NA, chooseone=TRUE,
drplot <- function(drresults, data, dtype = "std", alpha = 0.95,
path = "./", fileprefix = "drplot", overlay = FALSE,
postscript = FALSE, png = FALSE, bw = TRUE,
- colors = 1:8)
+ colors = 1:8,devoff=T)
{
unitlevels <- levels(as.factor(drresults$unit))
if (length(unitlevels) == 1) {
@@ -373,7 +373,11 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95,
}
}
if (overlay) legend(lhd - 1, hr + 0.1, dsubstances,lty = 1, col = colors)
- if (overlay && (postscript || png)) dev.off()
+ if (overlay && (postscript || png)) {
+ if (devoff) {
+ dev.off()
+ }
+ }
}
checkplate <- function(plate,db="cytotox")

Contact - Imprint