Subversion Repositories bdplot

Rev

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

Rev 68 Rev 69
Line 1... Line 1...
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,heights=NULL){
 3 
bdsharex.start <- function(nplots,heights=NULL){
4 
  if(!is.null(heights)){
 4 
  if(is.null(heights)){
- 
 
 5 
    heights <- rep(1,nplots)
- 
 
 6 
  } else if(length(heights)!=nplots) {
5 
    if(length(heights)!=nplots) stop("If !is.null(heights), heights must be of length nplots.")
 7 
    stop("If !is.null(heights), heights must be of length nplots.")
6 
  }
 8 
  }
- 
 
 9
7 
  layout(1:(nplots+2), heights=c(lcm(0.1), heights, lcm(1)))
 10 
  layout(1:(nplots+2), heights=c(lcm(0.1), heights, lcm(1)))
8 
  ##  bdp(mar.lab=c(0,5,0.1,1),xaxt="n",las=1,mgp=c(3.5, 1, 0))
 11 
  ##  bdp(mar.lab=c(0,5,0.1,1),xaxt="n",las=1,mgp=c(3.5, 1, 0))
9 
 
 12 
 
10 
  ## Labels seem to be scaled. Need adjustment. This looks ok at least sometimes.
 13 
  ## Labels seem to be scaled. Need adjustment. This looks ok at least sometimes.
11 
  bdp(cex.lab=bdp()$cex.lab*1.3)
 14 
  bdp(cex.lab=bdp()$cex.lab*1.3)