Subversion Repositories bdplot

Rev

Rev 15 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15 Rev 24
Line 14... Line 14...
14 
  if(is.null(cols))
 14 
  if(is.null(cols))
15 
    cols <- 2:(dim.y[2]+1)
 15 
    cols <- 2:(dim.y[2]+1)
16 
##  print(cols)
 16 
##  print(cols)
17 
 
 17 
 
18
18
19 
  bdplot(x,y[,1],ylim=range(y),col=cols[1],...)
 19 
  bdplot(x,y[,1],ylim=range(y,na.rm=TRUE),col=cols[1],...)
20 
 
 20 
 
21 
  if(dim.y[2]>1){
 21 
  if(dim.y[2]>1){
22
22
23 
    for (i in 2:dim.y[2]){
 23 
    for (i in 2:dim.y[2]){
24 
      bdxyadd(x,y[,i],col=cols[i],...)
 24 
      bdxyadd(x,y[,i],col=cols[i],...)