diff options
| author | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2005-07-27 20:01:24 +0000 |
|---|---|---|
| committer | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2005-07-27 20:01:24 +0000 |
| commit | b3be75977ede683f145433a748d69d9feba316fe (patch) | |
| tree | 0006d3b04d45cb9d98de6415f92e631484c7ccb6 /R | |
| parent | 9b2cc2780e2acbbcb3927ee8342b46f93d7bb6ff (diff) | |
Added the pointsize argument to drplot.
git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@31 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
Diffstat (limited to 'R')
| -rw-r--r-- | R/drfit.R | 15 |
1 files changed, 8 insertions, 7 deletions
@@ -268,7 +268,8 @@ 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,devoff=T,lpos="topright") + pointsize = 12, + colors = 1:8, devoff=T, lpos="topright") { unitlevels <- levels(as.factor(drresults$unit)) if (length(unitlevels) == 1) { @@ -303,17 +304,17 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95, if (postscript) { filename = paste(path,fileprefix,".eps",sep="") postscript(file=filename, - paper="special",width=7,height=7,horizontal=FALSE,pointsize=12) + paper="special",width=7,height=7,horizontal=FALSE, pointsize=pointsize) cat("Created File: ",filename,"\n") } if (png) { filename = paste(path,fileprefix,".png",sep="") png(filename=filename, - width=500, height=500,pointsize=12) + width=500, height=500, pointsize=pointsize) cat("Created File: ",filename,"\n") } if (!postscript && !png) { - get(getOption("device"))(width=7,height=7,pointsize=12) + get(getOption("device"))(width=7,height=7) } plot(0,type="n", @@ -340,17 +341,17 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95, if (postscript) { filename = paste(path,fileprefix,sub(" ","_",i),".eps",sep="") postscript(file=filename, - paper="special",width=7,height=7,horizontal=FALSE,pointsize=12) + paper="special",width=7,height=7,horizontal=FALSE,pointsize=pointsize) cat("Created File: ",filename,"\n") } if (png) { filename = paste(path,fileprefix,sub(" ","_",i),".png",sep="") png(filename=filename, - width=500, height=500,pointsize=12) + width=500, height=500, pointsize=pointsize) cat("Created File: ",filename,"\n") } if (!postscript && !png) { - get(getOption("device"))(width=7,height=7,pointsize=12) + get(getOption("device"))(width=7,height=7) } plot(0,type="n", |