
sort_mat(x)
nth, colMaxs, colMins, colrange, sort_cor_vectors,
sort_index, sort_unique
x <- matrix( rnorm(1000 * 500), ncol = 500 )
system.time( s1 <- sort_mat(x) )
system.time( s2 <- apply(x, 2, sort) )
all.equal(as.vector(s1), as.vector(s2))
Run the code above in your browser using DataLab