R/get_volume.R

In bblonder/hypervolume: High Dimensional Geometry, Set Operations, Projection, and Inference Using Kernel Density Estimation, Support Vector Machines, and Convex Hulls

get_volume.Hypervolume <- function(object)
{
  result = object@Volume
  names(result) = object@Name
  
  return(result)
}

get_volume.HypervolumeList <- function(object)
{
  result = sapply(object@HVList, get_volume.Hypervolume)
  names(result) = sapply(object@HVList, function(x) {x@Name})
  return(result)
} 


setGeneric("get_volume", function(object) {})
setMethod("get_volume","Hypervolume", function(object) {get_volume.Hypervolume(object)})
setMethod("get_volume","HypervolumeList", function(object) {get_volume.HypervolumeList(object)})