aboutsummaryrefslogtreecommitdiff
path: root/R/drfit.R
diff options
context:
space:
mode:
authorranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-07-27 20:01:24 +0000
committerranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-07-27 20:01:24 +0000
commitb3be75977ede683f145433a748d69d9feba316fe (patch)
tree0006d3b04d45cb9d98de6415f92e631484c7ccb6 /R/drfit.R
parent9b2cc2780e2acbbcb3927ee8342b46f93d7bb6ff (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/drfit.R')
-rw-r--r--R/drfit.R15
1 files changed, 8 insertions, 7 deletions
diff --git a/R/drfit.R b/R/drfit.R
index 527b756..d8ad40b 100644
--- a/R/drfit.R
+++ b/R/drfit.R
@@ -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",

Contact - Imprint