R/hypervolume_join.R

In dc165/Hypervolume-Dev: High Dimensional Geometry and Set Operations Using Kernel Density Estimation, Support Vector Machines, and Convex Hulls

hypervolume_join <- function(...)
{
  args <- list(...)
  if (length(args)==1 & is.list(args[[1]]))
  {
    result <- new("HypervolumeList",HVList=args[[1]])
    return(result)
  }
  else
  {
    hvl <- list()
    
    for (a in list(...))
    {
      if (class(a) == "HypervolumeList")
      {
        hvl <- c(hvl, a@HVList)
      }
      else if (class(a) == "Hypervolume")
      {
        hvl <- c(hvl, a)
      }
    }
    
    return(new("HypervolumeList",HVList=hvl))
  }
}