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