Subversion Repositories bdplot

Rev

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

Rev 52 Rev 54
Line 120... Line 120...
120 
      ## this is ugly, non standard.
 120 
      ## this is ugly, non standard.
121 
      if(is.null(xlim))
 121 
      if(is.null(xlim))
122 
        xlim <- range(x,na.rm=TRUE) #,bdp()$xlim,na.rm=TRUE)
 122 
        xlim <- range(x,na.rm=TRUE) #,bdp()$xlim,na.rm=TRUE)
123 
      if(is.null(ylim))
 123 
      if(is.null(ylim))
124 
        ylim <- range(y,na.rm=TRUE) #,bdp()$ylim,na.rm=TRUE)
 124 
        ylim <- range(y,na.rm=TRUE) #,bdp()$ylim,na.rm=TRUE)
- 
 
 125 
 
- 
 
 126 
      xlabel <- if (!missing(x))
- 
 
 127 
        deparse(substitute(x))
- 
 
 128 
      ylabel <- if (!missing(y))
- 
 
 129 
        deparse(substitute(y))
- 
 
 130 
      ##       xy <- xy.coords(x, y, xlabel, ylabel, log)
- 
 
 131 
      xlab <- if (is.null(xlab))
125
132 
        xlabel
- 
 
 133 
      else xlab
- 
 
 134 
      ylab <- if (is.null(ylab))
- 
 
 135 
        ylabel
- 
 
 136 
      else ylab
- 
 
 137 
 
- 
 
 138 
      ## here we make the empty plot
126 
      plot(x, y,
 139 
      plot(x, y,
127 
           type="n",
 140 
           type="n",
128 
           xaxt=xaxt, yaxt=yaxt,
 141 
           xaxt=xaxt, yaxt=yaxt,
129 
           cex=cex.plot,
 142 
           cex=cex.plot,
130 
           xlab=xlab,
 143 
           xlab=xlab,