Subversion Repositories bdplot

Rev

Rev 49 | Rev 62 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 49 Rev 59
Line 11... Line 11...
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*par("cex"))
 15 
  mtext(xlab,1,line=1.5,cex=bdp()$cex.lab*par("cex"))
- 
 
 16 
##  par(bty="n")
- 
 
 17 
  bdplot(1,1,type="n",xaxt="n",yaxt="n",bty="n",ylab="")
16 
}
 18 
}
17 
 
 -