aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-10-11 08:55:12 +0000
committerranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>2005-10-11 08:55:12 +0000
commitc90d9e99757fc40ea3a8396116a6acf639729ef5 (patch)
tree56dca27d79b6018824cd98c2371fa768f5defedf /R
parentddac7a2d13b13a9929fa950ca0e7ad969a98cbe2 (diff)
Change the device for creation of png files to bitmap(), in order
to let people without the X11() device make pngs, too. git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@43 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
Diffstat (limited to 'R')
-rw-r--r--R/drfit.R8
1 files changed, 4 insertions, 4 deletions
diff --git a/R/drfit.R b/R/drfit.R
index 9c99b1a..5bb73e2 100644
--- a/R/drfit.R
+++ b/R/drfit.R
@@ -318,8 +318,8 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95,
}
if (png) {
filename = paste(path,fileprefix,".png",sep="")
- png(filename=filename,
- width=500, height=500, pointsize=pointsize)
+ bitmap(file=filename,type="png256",res=72,
+ width=6, height=6, pointsize=pointsize)
cat("Created File: ",filename,"\n")
}
if (!postscript && !png) {
@@ -355,8 +355,8 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95,
}
if (png) {
filename = paste(path,fileprefix,sub(" ","_",i),".png",sep="")
- png(filename=filename,
- width=500, height=500, pointsize=pointsize)
+ bitmap(file=filename,type="png256",res=72,
+ width=6, height=6, pointsize=pointsize)
cat("Created File: ",filename,"\n")
}
if (!postscript && !png) {

Contact - Imprint