votes.ex <- c(Party1 = 6310391, Party2 = 5371866, Party3 = 1709890,
Party4 = 1504771, Party5 = 323444)
seats.ex <- c(Party1 = 165, Party2 = 118, Party3 = 20,
Party4 = 16, Party5 = 0)
example <- traditional_indexes(votes.ex, seats.ex)
example
Run the code above in your browser using DataLab