https://github.com/cran/MADPop
Raw File
Tip revision: 3bd381da180f05e1297e9511caae8f076a50b88a authored by Martin Lysy on 08 November 2018, 15:00:03 UTC
version 1.1.2
Tip revision: 3bd381d
colSort.R
#' 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[do.call(order, lapply(data.frame(X), c)),]
}
back to top