Nothing
setGeneric("silhouette",
function (x, ...)
standardGeneric("silhouette")
)
setMethod("silhouette",
signature(x = "VegsoupPartition"),
function (x, ...) {
if (getK(x) == 1)
stop("meaningless with k = ", getK(x))
res <- cluster::silhouette(partitioning(x), dist = as.dist(x, ...))
rownames(res) <- rownames(x)
return(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.