| 10 |
pdel |
1 |
## a function to add points or lines to a plot. det kan skrives meget
|
|
|
2 |
## paenere, om en streng indeholder en karakter.
|
|
|
3 |
|
|
|
4 |
## grep("l",type)
|
|
|
5 |
|
| 36 |
pdel |
6 |
.bdxyadd <- function(x,y=NULL,type=bdp()$type,lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex.plot,...){
|
| 10 |
pdel |
7 |
|
|
|
8 |
prm <- .bdgetpars()
|
|
|
9 |
|
| 36 |
pdel |
10 |
## is this condition even necessary?
|
|
|
11 |
if(!is.null(y)){
|
|
|
12 |
points(x,y,cex=cex,pch=pch,type=type,col=col,...)
|
|
|
13 |
} else {
|
|
|
14 |
points(x,cex=cex,pch=pch,col=col,type=type,...)
|
|
|
15 |
}
|
| 10 |
pdel |
16 |
}
|
| 29 |
pdel |
17 |
|
|
|
18 |
|
| 34 |
pdel |
19 |
bdpoints <- function(x,y=NULL,type="p",lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex.plot,...){
|
| 29 |
pdel |
20 |
|
| 36 |
pdel |
21 |
points(x,y=y,type=type,lwd=lwd,pch=pch,col=col,cex=cex,...)
|
| 29 |
pdel |
22 |
}
|
|
|
23 |
|
|
|
24 |
|
| 34 |
pdel |
25 |
bdlines <- function(x,y=NULL,type="l",lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex.plot,...){
|
| 29 |
pdel |
26 |
|
| 36 |
pdel |
27 |
lines(x,y=y,type=type,lwd=lwd,pch=pch,col=col,cex=cex,...)
|
| 29 |
pdel |
28 |
}
|
|
|
29 |
|
|
|
30 |
bdabline <- function(a = NULL, b = NULL, h = NULL, v = NULL, reg = NULL,
|
|
|
31 |
coef = NULL, untf = FALSE, lwd=bdp()$lwd,lty=bdp()$lty,...){
|
| 30 |
pdel |
32 |
|
|
|
33 |
abline(a = a, b = b, h = h, v = v, reg = reg,
|
|
|
34 |
coef = coef, untf = untf, lwd=lwd,lty=lty,...)
|
|
|
35 |
|
| 29 |
pdel |
36 |
}
|