Update R/weighted.rank.r