R/helper.R

Defines functions .idclusters

# put cluster membership identifiers in standard order (1,2,...)
.idclusters <- function(m){
  curr <- unique(m)
  for (i in 1:length(curr)){
    m[m==curr[i]] <- -i
  }
  return(-m)
}

Try the cata package in your browser

Any scripts or data that you put into this service are public.

cata documentation built on Sept. 12, 2025, 1:08 a.m.