# NOT RUN {
data(dublin_west)
head(dublin_west)
# }
# NOT RUN {
# produce similar results as in the Wikipedia link above
dwstv <- stv(dublin_west, mcan = 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