Nothing
###############################################################################
## convert similarity matrix to dist object
###############################################################################
sim2dist <- function(x, maxSim = 1){
stopifnot(is.matrix(x))
stopifnot(isSymmetric(x))
stopifnot(maxSim >= max(x))
d <- maxSim - x # from similarity to distance
return(as.dist(d))
}
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.