Weighted Hi-Median
Compute the weighted Hi-Median of x.
wgt.himedian(x, weights = rep(1, n))
x |
numeric vector |
weights |
numeric vector of weights; of the same length as |
median;
also wtd.quantile from package Hmisc.
x <- c(1:6, 20)
median(x) ## 4
stopifnot(all.equal(4, wgt.himedian(x)),
all.equal(6, wgt.himedian(x, c(rep(1,6), 5))))Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.