R/competitiveness.R

In albuja/electoral: Allocating Seats Methods and Party System Scores

#  Party System Indicators - Competitiveness----

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