Nothing
print.multicut <- function(x, digits, ...) {
if (missing(digits))
digits <- max(3L, getOption("digits") - 3L)
cat("Multivariate multicut results, dist = ",
if (is.function(x$dist)) attr(x$dist, "dist") else x$dist,
"\n", sep="")
cat("\nCall:\n", paste(deparse(x$call), sep = "\n", collapse = "\n"),
"\n\n", sep = "")
cat(length(x$species), "species\n\n")
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.