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,...){
 
  points(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,...){
 
  lines(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,...){
  

Subversion Repositories bdplot

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

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