Calculate Earth Mover Distance using ddply and a column for weights in R

Question

I have data for 163 elections in different countries with 9 rows for each of those elections, representing each of the 9 main political parties running on them (indexed with let