Update R/weighted.median.r