mat.sort <- function(mat,n) { mat[rank(mat[,n]),] <- mat[c(1:nrow(mat)),] return(mat) } a <- matrix(rnorm(100),ncol=10) mat.sort(a,1)
mat.sort <- function(mat,n) { mat[rank(mat[,n]),] <- mat[c(1:nrow(mat)),] return(mat) } a <- matrix(rnorm(100),ncol=10) mat.sort(a,1)