Nothing
kmeansWrapper <- function(data, k, nstart = 20, iter.max = 1000, ...) {
if (nstart > nrow(data)) nstart = nrow(data)
kmeans(x = data, centers = k, nstart = nstart, iter.max = iter.max, ...)$cluster
}
pamWrapper <- function(data, k, ...){
cluster::pam(data, k, cluster.only = T, ...)
}
hclustWrapper <- function(data, k, ...){
cutree(hclust(dist(data), ...), k = k)
}
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.