R/FindSilhouette.R

Defines functions FindSilhouette

FindSilhouette <- function(distm, clusters){
    if(!inherits(distm, 'dist')) stop("arg distm must inherit dist class. Got: ", class(distm))
    if(!all(clusters == floor(clusters))) stop('arg clusters must all be integers')
    if(length(clusters) != attr(distm, 'Size')) stop('length of clusters', length(clusters),
                                                     'not equal to number of observations in distm', attr(distm, 'Size'))
    ans <- mean(cluster::silhouette(x = clusters, dist = distm)[,3])
    return(ans)
}

Try the ADPclust package in your browser

Any scripts or data that you put into this service are public.

ADPclust documentation built on May 2, 2019, 9:23 a.m.