data(iris) # data set
res <- silhouette(data = iris[,1:4], k.cluster = 2:10, cut = TRUE,
plot = TRUE, title = NA, xlabel = NA, ylabel = NA,
size = 1.1, grid = TRUE, savptc = FALSE, width = 3236,
color = TRUE, height = 2000, res = 300, casc = TRUE)
res$k.ideal # number of clusters
res$eve.si # vector with averages of si indices
res <- silhouette(data = iris[,1:4], k.cluster = 3, cut = TRUE,
plot = TRUE, title = NA, xlabel = NA, ylabel = NA,
size = 1.1, grid = TRUE, savptc = FALSE, width = 3236,
color = TRUE, height = 2000, res = 300, casc = TRUE)
res$k.ideal # number of clusters
res$eve.si # vector with averages of si indices
Run the code above in your browser using DataLab