R/plotBounds.R

`plotBounds` <-
function (a1=0, a0=1, add=TRUE, xlab=NA, ylab=NA, ...) {
  if (!add) {
    plot(.5, .5, xlim=c(0,1), ylim=c(0,1), xlab=xlab, ylab=ylab, col="transparent")
    }
  lines(c(a1, a1), c(0,1), ...) 
  lines(c(a0, a0), c(0,1), ...) 
  }

Try the adaptTest package in your browser

Any scripts or data that you put into this service are public.

adaptTest documentation built on Oct. 6, 2023, 5:08 p.m.