Nothing
print.fhclustd <-
function(x, dist.print=FALSE, digits=2, ...)
{
# Display of the distances between groups (optional)
if (dist.print)
{cat("distances between groups\n")
print(x$distances, digits=digits, ...)
}
print(x$clust)
return(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.