Subversion Repositories bdplot

Rev

Rev 48 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed 


## so far, there's no end function, so should it just be called bdsharex?
bdsharex.start <- function(nplots){
  layout(1:(nplots+2), heights=c(lcm(0.1), rep(1,nplots), lcm(1)))
  ##  bdp(mar.lab=c(0,5,0.1,1),xaxt="n",las=1,mgp=c(3.5, 1, 0))
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
  bdp(mar.lab=c(0,bdp()$mar.lab[2],0,bdp()$mar.lab[4]))
  
  bdp(xaxt="n",las=1,mgp=c(3.5, 1, 0))
  bdplot(0, type="n", yaxt="n", bty="n", xlab="", ylab="")
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
}