mycluster <- function(x, k,Mat){
res <- list()
res$cluster <- cutree(hclust(as.dist(Mat), method = "single"),k=k)
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.