utils <- cluutils()
data(iris)
x <- iris[, 1:4]
clu <- stats::kmeans(x, centers = 3)$cluster
utils$metric_wcss(x, clu)
utils$metric_silhouette(x, clu)
utils$metric_entropy(clu, iris$Species)
utils$selector_best(c(0.31, 0.42, 0.39), goal = "maximize")
Run the code above in your browser using DataLab