R/ExposomeClust-classification.R

In rexposome: Exposome exploration and outcome data analysis

#' @describeIn ExposomeClust Return classe asigned to each sample
setMethod(
  f = "classification",
  signature = "ExposomeClust",
  definition = function(object) {
    c <- pData(object)$cluster
    names(c) <- rownames(pData(object))
    return(c)
  }
)