R/weighted_median.R

In tobiasschoch/robsurvey: Robust Survey Statistics Estimation

Defines functions weighted_median

Documented in weighted_median

# weighted median
weighted_median <- function(x, w, na.rm = FALSE)
{
    weighted_quantile(x, w, 0.5, na.rm)
}