# NOT RUN {
data(iris)
hv1 <- hypervolume(iris[,1:3],bandwidth=0.1)
hv1_segmented <- hypervolume_segment(hv1, npmax=1000,distancefactor=5)
hv1_segmented_pruned <- hypervolume_prune(hv1_segmented, minnp=100)
plot(hv1_segmented_pruned)
# }
Run the code above in your browser using DataLab