powered by
Calculates weighted median based on weighted_quantile().
weighted_quantile()
weighted_median(x, w = NULL, ...)
A length-one numeric vector.
Numeric vector.
Optional vector of non-negative case weights.
Further arguments passed to weighted_quantile().
n <- 21 x <- seq_len(n) quantile(x, probs = 0.5) weighted_median(x, w = rep(1, n)) weighted_median(x, w = x) quantile(rep(x, x), probs = 0.5)
Run the code above in your browser using DataLab