Create weighted.median.r