R/median.sR.R

In mtoto/SparkRhelpers:

#' A Median Function
#'
#' This function computes the sample median of a
#' single column from a SparkR DataFrame.
#' This function computes the sample median
#' of a single column from a SparkR DataFrame.
#' @param df The name of the DataFrame.
#' @param col The name of the column, character string.
#' @keywords data-exploration, median, frequency, sparkR, summary statistics
#' @export
#' @examples
#' median.sR(iris, "Sepal_Length")

median.sR <- function(df, col) {

  tab.sorted <- table.sR(df, col)
  index <- min(which(cumsum(tab.sorted) >= sum(tab.sorted)/2))
  med <- as.numeric(names(tab.sorted)[index])
  return(med)

}