Raw File
Tip revision: be291479202d9ca826914b9bf0fe0b8efa26e6c3 authored by Martin Lysy on 22 August 2022, 08:20:12 UTC
version 1.1.4
Tip revision: be29147
#' Matrix Sort
#' Sorts a matrix by first column, breaking ties with second column, breaking those ties with 3rd, etc.
#' @param X matrix to sort.
#' @return Same matrix with rows permuted according to sort order.
#' @keywords internal
colSort <- function(X) {
  if(!is.matrix(X)) return(sort(X))
  X[, lapply(data.frame(X), c)),]
back to top