R/subspace_cluster.R

In subspace: Interface to OpenSubspace

#
subspace_cluster <- function(subspace,objects) {
  res <- list(subspace=subspace,objects=objects)
  class(res) <- append(class(res),"subspace_cluster")
  return(res)
}
#'@export
print.subspace_cluster <- function(x,...) {
  cat("Subspace cluster generated by the package Subspace. 
      This cluster consists of",length(x$objects),"objects in a",length(which(x$subspace)),
      "dimensional subspace.")
}