powered by
weighted.median(y, w)
y
weighted.mean
weighted.fractile
y <- 1:9 w <- c(rep(1,5), rep(2,4)) res <- weighted.median(y, w)
Run the code above in your browser using DataLab