data(dublin_west)
head(dublin_west)
if (FALSE) {
# produce similar results as in the Wikipedia link above
dwstv <- stv(dublin_west, nseats = 3, eps = 1, constant.quota = TRUE)
# plot results
plot(dwstv)
image(dwstv)
image(dwstv, all.pref = TRUE)}
Run the code above in your browser using DataLab