R/lines.prcurve.R

Defines functions lines.prcurve

Documented in lines.prcurve

lines.prcurve <- function(x, axes = 1:2, scaling = 0, segments = TRUE,
                          col = "red", col.seg = "forestgreen",
                          lwd = 2, lwd.seg = 1,
                          ...) {
  pred <- predict(x$ordination, x$s, type = "wa",
                  scaling = scaling)[, axes]
  scrs <- scores(x$ordination, display = "sites", scaling = scaling,
                 choices = axes)
  if(segments)
    segments(scrs[, 1], scrs[, 2], pred[, 1], pred[, 2],
             col = col.seg, lwd = lwd.seg)
  lines(pred[x$tag, 1:2], lwd = lwd, col = col,
        ...)
  invisible()
}
gavinsimpson/analogue documentation built on June 17, 2021, 2:37 a.m.