Subversion Repositories bdplot

Rev

Rev 29 | Rev 34 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

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