R/clustsizes.R

In january3/myfuncs: loads a few functions I often need

#' calculate sizes of clusters
#'
#' calculate sizes of clusters
#'
#' calculate sizes of clusters
#'@export
clustsizes <- function( clusters ) {

  n <- unique( clusters )

  s <- sapply( n, function( x ) length( which( clusters == x ) ) )
  names( s ) <- n
  return( s )
}