Subversion Repositories bdplot

Rev

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

Rev 59 Rev 62
Line 12... Line 12...
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*par("cex"))
 15 
  mtext(xlab,1,line=1.5,cex=bdp()$cex.lab*par("cex"))
16 
##  par(bty="n")
 16 
##  par(bty="n")
- 
 
 17 
  oldbdp <- list()
- 
 
 18 
  oldbdp$grid.h <- bdp()$grid.h
- 
 
 19 
  oldbdp$grid.v <- bdp()$grid.v
- 
 
 20 
  bdp(grid.v=NA)
- 
 
 21 
  bdp(grid.h=NA)
- 
 
 22 
  bdp(grid=FALSE)
17 
  bdplot(1,1,type="n",xaxt="n",yaxt="n",bty="n",ylab="")
 23 
  bdplot(1,1,type="n",xaxt="n",yaxt="n",bty="n",ylab="",rlab="")
- 
 
 24 
  bdp(grid.h=oldbdp$grid.h,grid.v=oldbdp$grid.v)
18 
}
 25 
}