Nothing
medoids <- function(D,cl) {
if(sum(class(D)=='dist')>0) D <- as.matrix(D)
k <- length(table(cl))
res <- numeric()
for(i in 1:k) {
x <- D[cl==i,cl==i]
id <- 1:length(D[1,]); id <- id[which(cl==i)]
if (length(x)>1) res[i] <- id[which.min(colMeans(x))] else res[i] <- which(cl==i)
}
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.