| 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 |
|
| 30 |
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 |
|
| 30 |
pdel |
10 |
|
|
|
11 |
## is this condition even necessary?
|
| 10 |
pdel |
12 |
if(!is.null(y)){
|
| 30 |
pdel |
13 |
points(x,y,cex=cex,pch=pch,type=type,col=col,...)
|
| 10 |
pdel |
14 |
} else {
|
| 30 |
pdel |
15 |
points(x,cex=cex,pch=pch,col=col,type=type,...)
|
| 10 |
pdel |
16 |
}
|
| 30 |
pdel |
17 |
|
| 10 |
pdel |
18 |
}
|
| 29 |
pdel |
19 |
|
|
|
20 |
|
| 34 |
pdel |
21 |
bdpoints <- function(x,y=NULL,type="p",lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex.plot,...){
|
| 29 |
pdel |
22 |
|
| 30 |
pdel |
23 |
bdxyadd(x,y=y,type=type,lwd=lwd,pch=pch,col=col,cex=cex,...)
|
| 29 |
pdel |
24 |
}
|
|
|
25 |
|
|
|
26 |
|
| 34 |
pdel |
27 |
bdlines <- function(x,y=NULL,type="l",lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex.plot,...){
|
| 29 |
pdel |
28 |
|
| 30 |
pdel |
29 |
bdxyadd(x,y=y,type=type,lwd=lwd,pch=pch,col=col,cex=cex,...)
|
| 29 |
pdel |
30 |
}
|
|
|
31 |
|
|
|
32 |
bdabline <- function(a = NULL, b = NULL, h = NULL, v = NULL, reg = NULL,
|
|
|
33 |
coef = NULL, untf = FALSE, lwd=bdp()$lwd,lty=bdp()$lty,...){
|
| 30 |
pdel |
34 |
|
|
|
35 |
abline(a = a, b = b, h = h, v = v, reg = reg,
|
|
|
36 |
coef = coef, untf = untf, lwd=lwd,lty=lty,...)
|
|
|
37 |
|
| 29 |
pdel |
38 |
}
|