Subversion Repositories bdplot

Rev

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

Rev 28 Rev 29
Line 21... Line 21...
21 
      points(x,cex=prm$cex.plot,pch=prm$pch,col=col,...)
 21 
      points(x,cex=prm$cex.plot,pch=prm$pch,col=col,...)
22 
      lines(x,lwd=lwd,col=col,...)
 22 
      lines(x,lwd=lwd,col=col,...)
23 
    }
 23 
    }
24 
  }
 24 
  }
25 
}
 25 
}
- 
 
 26 
 
- 
 
 27 
 
- 
 
 28 
bdpoints <- function(x,y=NULL,type="points",lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex,...){
- 
 
 29 
 
- 
 
 30 
  bdxyadd(x,y=NULL,type=type,lwd=lwd,pch=pch,col=col,cex=cex,...)
- 
 
 31 
}
- 
 
 32 
 
- 
 
 33 
 
- 
 
 34 
bdlines <- function(x,y=NULL,type="lines",lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex,...){
- 
 
 35 
 
- 
 
 36 
  bdxyadd(x,y=NULL,type=type,lwd=lwd,pch=pch,col=col,cex=cex,...)
- 
 
 37 
}
- 
 
 38 
 
- 
 
 39 
bdabline <- function(a = NULL, b = NULL, h = NULL, v = NULL, reg = NULL,
- 
 
 40 
    coef = NULL, untf = FALSE, lwd=bdp()$lwd,lty=bdp()$lty,...){
- 
 
 41 
  abline(a = NULL, b = NULL, h = NULL, v = NULL, reg = NULL,
- 
 
 42 
    coef = NULL, untf = FALSE, lwd=lwd,lty=lty,...)
- 
 
 43 
}