very cool, easier than I thought... (although I am not fully familiar
with sapply() and friends)
quick reality-check (no proof!) at
http://icon.cat/util/elections/isuHqUyDYh shows that the results
coincide:
votes <- c(42201,38635,247736,170627,48236,117151,61379,35889,92321)
dHont(c("BGLD","KTN","N?","O?","SLBG","STMK","T","VLBG","W"), votes, 26)
so thanks a lot, have a great day!
Thomas