R/concentration.R

In electoral: Allocating Seats Methods and Party System Scores

#  Party System Indicators - Concentration----

concentration <- function(votes) {
     if (!is.numeric(votes)) {
          stop('Input vector must be numeric')
     }
     if (length(votes) < 2 & is.numeric(votes)) {
          stop('Input vector must have minimal lenght of 2.')
     }
     sum(sort(votes/sum(votes), decreasing = TRUE)[1:2])
}