diff options
| -rw-r--r-- | DESCRIPTION | 4 | ||||
| -rw-r--r-- | R/drfit.R | 15 | ||||
| -rw-r--r-- | man/drplot.Rd | 5 |
3 files changed, 14 insertions, 10 deletions
diff --git a/DESCRIPTION b/DESCRIPTION index ce7412f..343e81a 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: drfit -Version: 0.04-30 -Date: 2005-07-17 +Version: 0.04-31 +Date: 2005-07-27 Title: Dose-response data evaluation Author: Johannes Ranke <jranke@uni-bremen.de> Maintainer: Johannes Ranke <jranke@uni-bremen.de> @@ -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", diff --git a/man/drplot.Rd b/man/drplot.Rd index e5201a2..25b598c 100644 --- a/man/drplot.Rd +++ b/man/drplot.Rd @@ -7,7 +7,7 @@ } \usage{ drplot(drresults, data, dtype, alpha, path, fileprefix, overlay, - postscript, png, bw, colors, devoff, lpos) + postscript, png, bw, pointsize, colors, devoff, lpos) } \arguments{ \item{drresults}{ @@ -59,6 +59,9 @@ A boolean deciding if the plots will be black and white or not. Default is TRUE. } + \item{pointsize}{ + The pointsize used for png and postscript graphics. + } \item{colors}{ This is a vector of colors, defaulting to 1:8, used for plotting the data. } |