R/lines.rief.R

In Rwinsteps: Running Winsteps in R

Defines functions lines.rief

Documented in lines.rief

lines.rief <- function(x, theta = x$theta, lwd = 2,
  col = "r", ...) {

  col <- getcolors(col, ncol(x$e))

  for(i in 1:ncol(x$e))
    lines.default(theta, x$e[, i], lwd = lwd, col = col[i], ...)
}

Try the Rwinsteps package in your browser