Subversion Repositories bdplot

Rev

Rev 57 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 57 Rev 66
Line 14... Line 14...
14 
bdinit <- function(){
 14 
bdinit <- function(){
15 
 
 15 
 
16 
##  par(cex.main=bdp()$cex.main, cex.lab=bdp()$cex.lab,
 16 
##  par(cex.main=bdp()$cex.main, cex.lab=bdp()$cex.lab,
17 
##      cex.axis=bdp()$cex.axis,cex=bdp()$cex.plot)
 17 
##      cex.axis=bdp()$cex.axis,cex=bdp()$cex.plot)
18 
 
 18 
 
19 
  par(cex=bdp()$cex.plot)
19 
  par(##cex.plot=bdp()$cex.plot,
- 
 
 20 
      cex.main=bdp()$cex.main,
- 
 
 21 
      cex.lab=bdp()$cex.lab,
- 
 
 22 
      cex.axis=bdp()$cex.axis)
20
23
21 
  par(tcl=bdp()$tcl)
 24 
  par(tcl=bdp()$tcl)
22 
  par(lwd=bdp()$lwd)
 25 
  par(lwd=bdp()$lwd)
23 
  par(bty=bdp()$bty)
 26 
  par(bty=bdp()$bty)
24
27
Line 46... Line 49...
46
49
47 
  }
 50 
  }
48 
  par(mar=mar)
 51 
  par(mar=mar)
49
52
50 
  par(mgp=bdp()$mgp.global)
 53 
  par(mgp=bdp()$mgp.global)
- 
 
 54 
 
- 
 
 55 
### could par(cex=cex.plot) also be done here?
51
56
52 
}
 57 
}
53 
 
 58 
 
- 
 
 59 
## This is a dirty patch to make boxplots and hopefully histograms a
- 
 
 60 
## lot better after initializing with binit.ext. bdinit should do this.
- 
 
 61 
bdinit.ext <- function(){
- 
 
 62 
  bdp(mgp.global=c(1.8,.5,0))
- 
 
 63 
  bdp(mar.nolab=c(1.5,1,.8,.3))
- 
 
 64 
  bdp(mar.lab=c(3,3,3,3))
- 
 
 65 
 
- 
 
 66 
  bdinit()
- 
 
 67 
  par(cex.lab=1.5)
- 
 
 68 
  par(cex.axis=1.5)
- 
 
 69 
 
- 
 
 70 
 
- 
 
 71 
}