Subversion Repositories bdplot

Rev

Rev 48 | Rev 59 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 48 Rev 49
1 
 
 1 
 
2 
## so far, there's no end function, so should it just be called bdsharex?
 2 
## so far, there's no end function, so should it just be called bdsharex?
3 
bdsharex.start <- function(nplots){
 3 
bdsharex.start <- function(nplots){
4 
  layout(1:(nplots+2), heights=c(lcm(0.1), rep(1,nplots), lcm(1)))
 4 
  layout(1:(nplots+2), heights=c(lcm(0.1), rep(1,nplots), lcm(1)))
5 
  ##  bdp(mar.lab=c(0,5,0.1,1),xaxt="n",las=1,mgp=c(3.5, 1, 0))
 5 
  ##  bdp(mar.lab=c(0,5,0.1,1),xaxt="n",las=1,mgp=c(3.5, 1, 0))
6 
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
 6 
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
7 
  bdp(mar.lab=c(0,bdp()$mar.lab[2],0,bdp()$mar.lab[4]))
 7 
  bdp(mar.lab=c(0,bdp()$mar.lab[2],0,bdp()$mar.lab[4]))
8
8
9 
  bdp(xaxt="n",las=1,mgp=c(3.5, 1, 0))
 9 
  bdp(xaxt="n",las=1,mgp=c(3.5, 1, 0))
10 
  bdplot(0, type="n", yaxt="n", bty="n", xlab="", ylab="")
 10 
  bdplot(0, type="n", yaxt="n", bty="n", xlab="", ylab="")
11 
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
 11 
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
12 
}
 12 
}
13 
 
 13 
 
14 
bdsharex.end <- function(xlab=bdp()$xlab){
 14 
bdsharex.end <- function(xlab=bdp()$xlab){
15 
  mtext(xlab,1,line=1.5,cex=bdp()$cex.lab)
 15 
  mtext(xlab,1,line=1.5,cex=bdp()$cex.lab*par("cex"))
16 
}
 16 
}
- 
 
 17 
 
17 
 
 18