R/concentration.R

Defines functions concentration

Documented in concentration

#  Parties System Indicators
#
# Concentration
# Consejo Nacional Electoral - Ecuador (2014)
#

concentration <- 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.')
     }
     sum(sort(votes/sum(votes), decreasing = TRUE)[1:2])
}

Try the electoral package in your browser

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

electoral documentation built on Sept. 29, 2017, 1:05 a.m.