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)
