WebSVN – bdplot – Diff – /bdgraphics/R/4_bdxyadd.R


## a function to add points or lines to a plot. det kan skrives meget
## paenere, om en streng indeholder en karakter.
 
## grep("l",type)
 
bdxyadd <- function(x,y=NULL,type=bdp()$type,lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex.plot,...){
 
  prm <- .bdgetpars()
  
 
## is this condition even necessary?
    if(!is.null(y)){
      points(x,y,cex=cex,pch=pch,type=type,col=col,...)
    } else {
      points(x,cex=cex,pch=pch,col=col,type=type,...)
    }
 
}
 
 
bdpoints <- function(x,y=NULL,type="p",lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex.plot,...){
 
  bdxyadd(x,y=y,type=type,lwd=lwd,pch=pch,col=col,cex=cex,...)
}
 
 
bdlines <- function(x,y=NULL,type="l",lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex.plot,...){
 
  bdxyadd(x,y=y,type=type,lwd=lwd,pch=pch,col=col,cex=cex,...)
}
 
bdabline <- function(a = NULL, b = NULL, h = NULL, v = NULL, reg = NULL, 
    coef = NULL, untf = FALSE, lwd=bdp()$lwd,lty=bdp()$lty,...){
  
  abline(a = a, b = b, h = h, v = v, reg = reg, 
    coef = coef, untf = untf, lwd=lwd,lty=lty,...)
 
}
 

Subversion Repositories bdplot

(root)/bdgraphics/R/4_bdxyadd.R – Rev 30 → 34

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