R/lines.riif.R

In Rwinsteps: Running Winsteps in R

Defines functions lines.riif

Documented in lines.riif

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

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

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

Try the Rwinsteps package in your browser