# NOT RUN {
# construct a manual clustering of the iris dataset
iris.data = iris[, 1:4]
rownames(iris.data) = paste0("iris_", seq_len(nrow(iris.data)))
iris.dist = dist(iris.data)
iris.clusters = setNames(as.integer(iris$Species), rownames(iris.data))
# compute sharpness values based on silhouette widths
silinfo(iris.clusters, iris.dist)
# }
Run the code above in your browser using DataLab