Subversion Repositories bdplot

Rev

Rev 47 | Rev 52 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 47 Rev 51
Line 5... Line 5...
5 
## strategy missing for xytype
 5 
## strategy missing for xytype
6 
## Could we test if there is an active graphics device? And if not, run bdopen()?
 6 
## Could we test if there is an active graphics device? And if not, run bdopen()?
7 
bdplot <- function(x, y=NULL, z=NULL,
 7 
bdplot <- function(x, y=NULL, z=NULL,
8 
                   ## The rest is irrelevant for the user
 8 
                   ## The rest is irrelevant for the user
9 
                   cex.plot=bdp()$cex.plot,
 9 
                   cex.plot=bdp()$cex.plot,
- 
 
 10 
                   cex.main=bdp()$cex.main,
- 
 
 11 
                   cex.sub=bdp()$cex.sub,
10 
                   xaxt=bdp()$xaxt,yaxt=bdp()$yaxt,
 12 
                   xaxt=bdp()$xaxt,yaxt=bdp()$yaxt,
11 
                   xaxt.in=bdp()$xaxt.in,yaxt.in=bdp()$xaxt.in,
 13 
                   xaxt.in=bdp()$xaxt.in,yaxt.in=bdp()$xaxt.in,
12 
                   xlab=bdp()$xlab, ylab=bdp()$ylab,
 14 
                   xlab=bdp()$xlab, ylab=bdp()$ylab,
13 
                   tlab=bdp()$tlab, rlab=bdp()$rlab,
 15 
                   tlab=bdp()$tlab, rlab=bdp()$rlab,
14 
                   xlim=bdp()$xlim,ylim=bdp()$ylim,
 16 
                   xlim=bdp()$xlim,ylim=bdp()$ylim,
Line 201... Line 203...
201 
    if(prm$debug)
 203 
    if(prm$debug)
202 
      cat("The Bacher/Delff Plotting System operating in princomp plotting mode.\n")
 204 
      cat("The Bacher/Delff Plotting System operating in princomp plotting mode.\n")
203 
    plot(x,
 205 
    plot(x,
204 
         main=prm$main,
 206 
         main=prm$main,
205 
         ...)
 207 
         ...)
- 
 
 208 
  } else if (class(x)=="lm") {
- 
 
 209 
    print("lm mode. This is experimental, mar and oma are set to fixed values.")
- 
 
 210 
    par(mar=c(2,2,2,.3))
- 
 
 211 
    par(oma = c(0, 0, 0, 0))
- 
 
 212 
    par(cex=0.4)
- 
 
 213 
    ### cex.caption is the title over each plot, cex.id magnification of point labels. What is eg "Cook's distance" written inside the plots?
- 
 
 214 
    plot.lm(x,cex.caption=cex.sub,cex.id=.5)##,cex=cex.plot)
206 
  } else if (prm$method=="image.plot"){
 215 
  } else if (prm$method=="image.plot"){
207 
    ### This could be checked in the beginning by is.null(z)
 216 
    ### This could be checked in the beginning by is.null(z)
208 
  }
 217 
  }
209
218
210 
###Grid stuff
 219 
###Grid stuff