R/median_ord.R

In jackobailey/IDA: Introduction to Data Analysis

median_ord <- function(x, na.rm = T){
  if(na.rm == T){
    x <- na.omit(x)
  }

  levs <- levels(x)
  m <- median(as.integer(x))
  if(floor(m) != m)
  {
    warning("Median is between two values; using the first one")
    m <- floor(m)
  }
  ordered(m, labels = levs, levels = seq_along(levs))
}