Nothing
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()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.