R/medianFactor.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Returns row median of factorized matrix
#'
#' @param data factorized matrix
#'
#' @return
#' @export
#'
#'
medianFactor <- function(data) {

  if(!hasArg(data)) {
    data <- getDataFrame()
  }

  apply(data, 1, FUN = function(x) {median(x, na.rm = T)})

}