| Line 2... |
Line 2... |
| 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 |
if(length(heights)!=nplots) stop("If !is.null(heights), heights must be of length nplots.")
|
5 |
if(length(heights)!=nplots) stop("If !is.null(heights), heights must be of length nplots.")
|
| 6 |
}
|
6 |
}
|
| 7 |
layout(1:(nplots+2), heights=c(lcm(0.1), rep(1,nplots), lcm(1)))
|
7 |
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))
|
8 |
## bdp(mar.lab=c(0,5,0.1,1),xaxt="n",las=1,mgp=c(3.5, 1, 0))
|
| - |
|
9 |
|
| - |
|
10 |
## Labels seem to be scaled. Need adjustment. This looks ok at least sometimes.
|
| - |
|
11 |
bdp(cex.lab=bdp()$cex.lab*1.3)
|
| - |
|
12 |
bdp(cex.axis=bdp()$cex.axis*1.3)
|
| - |
|
13 |
bdp(cex.legend = bdp()$cex.legend*1.3)
|
| - |
|
14 |
|
| - |
|
15 |
|
| 9 |
bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
|
16 |
bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
|
| 10 |
bdp(mar.lab=c(0,bdp()$mar.lab[2],0,bdp()$mar.lab[4]))
|
17 |
bdp(mar.lab=c(0,bdp()$mar.lab[2],0,bdp()$mar.lab[4]))
|
| 11 |
|
18 |
|
| 12 |
bdp(xaxt="n",las=1,mgp=c(3.5, 1, 0))
|
19 |
bdp(xaxt="n",las=1,mgp=c(3.5, 1, 0))
|
| 13 |
bdplot(0, type="n", yaxt="n", bty="n", xlab="", ylab="")
|
20 |
bdplot(0, type="n", yaxt="n", bty="n", xlab="", ylab="")
|