Skip to contents

Avalia a qualidade de um agrupamento pelo indice de silhueta (backend C++).

Usage

rnp_silhueta(base, clusters, metodo_dist = "euclidean", digits = 4L)

Arguments

base

data.frame/matriz numerica OU objeto dist.

clusters

Vetor de rotulos de cluster.

metodo_dist

String aceito por rnp_distancia() (se base nao for dist).

digits

Inteiro.

Value

Uma lista com silhuetas (tibble: observacao, cluster, silhueta) e media (silhueta media global).

Examples

km <- rnp_kmeans(mtcars[, c("mpg", "hp", "wt")], k = 3)
rnp_silhueta(mtcars[, c("mpg", "hp", "wt")], km$clusters$cluster)$media
#> [1] 0.2593