| 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 |
|
| 28 |
pdel |
6 |
bdxyadd <- function(x,y=NULL,type=bdp()$type,lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex,...){
|
| 10 |
pdel |
7 |
|
|
|
8 |
prm <- .bdgetpars()
|
|
|
9 |
|
|
|
10 |
if(any(type=="p",type=="l",type=="s")){
|
|
|
11 |
if(!is.null(y)){
|
|
|
12 |
points(x,y,cex=prm$cex.plot,pch=prm$pch,type=type,col=col,...)
|
|
|
13 |
} else {
|
|
|
14 |
points(x,cex=prm$cex.plot,pch=prm$pch,col=col,type=type,...)
|
|
|
15 |
}
|
|
|
16 |
} else if (type=="lp"|type=="pl"){
|
|
|
17 |
if(!is.null(y)){
|
|
|
18 |
points(x,y,cex=prm$cex.plot,pch=prm$pch,col=col,...)
|
|
|
19 |
lines(x,y,lwd=lwd,col=col,...)
|
|
|
20 |
} else {
|
|
|
21 |
points(x,cex=prm$cex.plot,pch=prm$pch,col=col,...)
|
|
|
22 |
lines(x,lwd=lwd,col=col,...)
|
|
|
23 |
}
|
|
|
24 |
}
|
|
|
25 |
}
|
| 29 |
pdel |
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 |
}
|