Nothing
# 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])
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.