R/RankMatrix.R

In rerf: Randomer Forest

RankMatrix <-
  function(X, na.last = TRUE, ties.method = "average") {
    if (is.matrix(X)) {
      X.rank <- apply(X, 2, FUN = function(x) rank(x, na.last = na.last, ties.method = ties.method))
    } else {
      X.rank <- rank(X, na.last = na.last, ties.method = ties.method)
    }
    return(X.rank)
  }