R/get_cluster_sizes.R

In summclust: Module to Compute Influence and Leverage Statistics for Regression Models with Clustered Errors

get_cluster_sizes <- function(cluster_df){

  #' get the number observations in each cluster
  #'
  #' @param cluster_df A data.frame with the cluster vector
  #' @noRd
  #'
  #' @return A table() with the Number per cluster


  N_G <- table(cluster_df)

  N_G

}