Subversion Repositories bdplot

Rev

Rev 66 | Rev 69 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 66 Rev 68
Line 198... Line 198...
198 
  } else if( class(x) == "acf"){
 198 
  } else if( class(x) == "acf"){
199 
    ## Not cleaned up/checked
 199 
    ## Not cleaned up/checked
200 
    plot(x, xlab="", ylab="", xaxt=xaxt, yaxt=yaxt, cex=prm$cex.plot, xlim=prm$xlim, ylim=prm$ylim,col=col,...)
 200 
    plot(x, xlab="", ylab="", xaxt=xaxt, yaxt=yaxt, cex=prm$cex.plot, xlim=prm$xlim, ylim=prm$ylim,col=col,...)
201 
  }  else if( class(x) == "histogram"){
 201 
  }  else if( class(x) == "histogram"){
202 
    ## Notice: the color of the bars can ONLY be set width bdp(hcol="color").
 202 
    ## Notice: the color of the bars can ONLY be set width bdp(hcol="color").
- 
 
 203 
    if(prm$debug) {browser()}
- 
 
 204 
    if(is.null(freq)){
- 
 
 205 
    freq=TRUE}
- 
 
 206 
    if(is.null(xlim)){
- 
 
 207 
      xlim <- range(x$breaks)
- 
 
 208 
    }
203 
    plot(x,
 209 
    plot(x,
204 
         xlab=xlab,ylab=ylab,
 210 
         xlab=xlab,ylab=ylab,
205 
         main=main,freq=freq,
 211 
         main=main,freq=freq,
- 
 
 212 
         xlim=xlim,
206 
         ylim=ylim,
 213 
         ylim=ylim,
207 
         xaxt=xaxt,yaxt=yaxt,col=bdp()$hcol,
 214 
         xaxt=xaxt,yaxt=yaxt,col=bdp()$hcol,
208 
         border=border,
 215 
         border=border,
209 
         ...)
 216 
         ...)
210 
  } else if( class(x) == "trellis"){
 217 
  } else if( class(x) == "trellis"){