diff options
Diffstat (limited to 'R/drfit.R')
-rw-r--r-- | R/drfit.R | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -318,8 +318,8 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95, } if (png) { filename = paste(path,fileprefix,".png",sep="") - bitmap(file=filename,type="png256",res=72, - width=6, height=6, pointsize=pointsize) + png(filename=filename, + width=500, height=500, 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="") - bitmap(file=filename,type="png256",res=72, - width=6, height=6, pointsize=pointsize) + png(filename=filename, + width=500, height=500, pointsize=pointsize) cat("Created File: ",filename,"\n") } if (!postscript && !png) { |