tests/testthat/helper-00.R

orderedMatrix <- function(M) {
  columns <- apply(M, 2L, identity, simplify = FALSE)
  o <- do.call(function(...) order(..., decreasing = TRUE), columns)
  M[o, ]
}
stla/syt documentation built on July 24, 2024, 4:37 a.m.