Subversion Repositories bdplot

bdlegend <- function(legend,x=bdp()$pos.legend,col=bdp()$col,bg=bdp()$bg.legend,cex=bdp()$cex.legend,...){

  ##  prm <- .bdgetpars()

  legend(x=x,
         cex=cex,
         legend=legend,
         bg=bg,
         col=col,
         ...)
  
}