##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (mat,mat.sz,n){mat[rank(mat[,n],ties.method="first"),]<-mat[1:mat.sz,]return(mat)}