Nothing
`plot.orditkplot` <-
function(x, ...)
{
.Deprecated(msg = "function was moved to CRAN package vegan3d")
op <- par(x$par)
on.exit(par(op))
plot(x$points, pch = x$args$pch, cex = x$args$pcex, col = x$args$pcol,
bg = x$args$pbg, xlim = x$args$xlim, ylim = x$args$ylim, asp=1)
font <- attr(x$labels, "font")
if (is.null(font))
font <- par("font")
text(x$labels, rownames(x$labels), cex = x$args$tcex,
col = x$args$tcol, font = font)
invisible(x)
}
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.