# NOT RUN {
data(iris)
hv = hypervolume_gaussian(data=subset(iris, Species=="setosa")[,1:3],name='setosa')
# get hypervolumes at multiple thresholds
hvlist = hypervolume_threshold(hv, plot=TRUE)
head(hvlist$Statistics)
plot(hvlist$HypervolumesThresholded[[c(1,5,10,15,20)]],
show.random=FALSE, show.data=FALSE,show.centroid=FALSE)
# get hypervolume for a single low quantile value
plot(hypervolume_threshold(hv, plot=FALSE, verbose=FALSE,
quantile.requested=0.2,quantile.requested.type="volume")[[1]])
# }
Run the code above in your browser using DataLab