R/svy_median.R

Defines functions survey_median

Documented in survey_median

#' @rdname weighted_se
#' @export
survey_median <- function(x, design) {
  # check if pkg survey is available
  insight::check_if_installed("survey")

  # deparse
  v <- stats::as.formula(paste("~", as.character(substitute(x))))

  as.vector(
    survey::svyquantile(
      v,
      design = design,
      quantiles = 0.5,
      ci = FALSE,
      na.rm = TRUE
    )
  )
}
strengejacke/sjstats documentation built on May 28, 2024, 8:30 p.m.