Nothing
hclust.wrap <-
function(x,centers) {
hc <- hclust(dist(x))
res=cutree(hc, k = centers) #k = 1 is trivial
return(res)
}
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.