Nothing
"Generate.clusters" <-
function(tr, c=3) {
cl <- list();
n <- length(tr);
for (i in 1:n) {
plot(tr[[i]], main="");
cl[i] <- list(stats::rect.hclust(tr[[i]], k = c));
}
cl
}
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.