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