View source: R/hypervolume_holes.R
hypervolume_holes | R Documentation |
Detects the holes in an observed hypervolume relative to an expectation
hypervolume_holes(hv.obs, hv.exp, set.num.points.max = NULL, set.check.memory = TRUE)
hv.obs |
The observed hypervolume whose holes are to be detected |
hv.exp |
The expected hypervolume that provides a baseline expectation geometry |
set.num.points.max |
Maximum number of points to be used for set operations comparing |
set.check.memory |
If |
This algorithm has a good Type I error rate (rarely detects holes that do not actually exist). However it can have a high Type II error rate (failure to find holes when they do exist). To reduce this error rate, make sure to re-run the algorithm with input hypervolumes with higher values of @PointDensity
, or increase set.num.points.max
.
The algorithm performs the set difference between the observed and expected hypervolumes, then removes stray points in this hypervolume by deleting any random point whose distance from any other random point is greater than expected.
A 'rule of thumb' is that algorithm has acceptable statistical performance when log_e(m) > n, where m is the number of data points and n is the dimensionality.
A Hypervolume
object containing a uniformly random set of points describing the holes in hv_obs
. Note that the point density of this object is likely to be much lower than that of the input hypervolumes due to the stochastic geometry algorithms used.
## Not run:
# generate annulus data
data_annulus <- data.frame(matrix(data=runif(4000),ncol=2))
names(data_annulus) <- c("x","y")
data_annulus <- subset(data_annulus,
sqrt((x-0.5)^2+(y-0.5)^2) > 0.4 & sqrt((x-0.5)^2+(y-0.5)^2) < 0.5)
# MAKE HYPERVOLUME (low reps for fast execution)
hv_annulus <- hypervolume_gaussian(data_annulus,
kde.bandwidth=0.05,name='annulus',samples.per.point=1)
# GET CONVEX EXPECTATION
hv_convex <- expectation_convex(hypervolume_thin(hv_annulus,num.samples=500),
check.memory=FALSE,use.random=TRUE)
# DETECT HOLES (low npoints for fast execution)
features_annulus <- hypervolume_holes(
hv.obs=hv_annulus,
hv.exp=hv_convex,
set.check.memory=FALSE)
# CLEAN UP RESULTS
features_segmented <- hypervolume_segment(features_annulus,
check.memory=FALSE,distance.factor=2)
features_segmented_pruned <- hypervolume_prune(features_segmented,
volume.min=0.02)
# PLOT RETAINED HOLE(S)
plot(hypervolume_join(hv_annulus, features_segmented_pruned))
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.