R/survAUC_utils.R

In road2stat/hdnom: Benchmarking and Visualization Toolkit for Penalized Cox Models

#' @noRd
my.sort <- function(x, index.return = FALSE, decreasing = FALSE) {
  if (decreasing) {
    x <- -x
  }
  y <- sort(x, method = "quick", index.return = index.return)
  if (decreasing) {
    y$x <- -y$x
  }
  y
}