# Example using the IMS Council dataset modified for score voting
data(ims_score)
score.ims <- score(ims_score, max.score = 9)
summary(score.ims)
# weighted version (assign random weight)
wvotes <- cbind(ims_score, weight = round(runif(nrow(ims_score), 0.5, 10), 1))
wscore.ims <- score(wvotes, max.score = 9, weight.column = "weight")
Run the code above in your browser using DataLab