R/label_cluster.R

In ChristofSeiler/braincog: Differential Correlation Analysis Between Brain and Cognition

#' Label cluster in image.
#'
#' @import SimpleITK
#' @import magrittr
#' @export
#'
label_cluster = function(arr) {
  arr %>%
    as.image %>%
    ScalarConnectedComponent %>%
    RelabelComponent %>%
    as.array
}