swh:1:snp:3aec91c51d538d62f3f51f6a0af59fe452f330ab
Tip revision: 7fd3759a82efec68108f707415410ada425b5242 authored by Zhu Wang on 09 March 2024, 20:10:02 UTC
version 0.4-2.25
version 0.4-2.25
Tip revision: 7fd3759
permute.rows.R
### from pamr package
permute.rows <-function(x)
{
dd <- dim(x)
n <- dd[1]
p <- dd[2]
mm <- runif(length(x)) + rep(seq(n) * 10, rep(p, n))
matrix(t(x)[order(mm)], n, p, byrow = TRUE)
}