Nothing
clustify <- function(clustering)
{
if (inherits(clustering,c("partana", "partition", "clustering"))) {
clustering <- factor(clustering$clustering)
} else if (is.character(clustering)) {
clustering <- factor(clustering)
} else if (is.numeric(clustering)) {
clustering <- factor(clustering)
} else if (is.logical(clustering)) {
clustering <- factor(clustering)
} else if (!is.factor(clustering))
stop('Cannot understand passed clustering')
clustering
}
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.