串行
APPLY<- function(m){
mTemp <- apply(m, 2, mysort)
return(mTemp)
}
snowfall包的并行
SNOWFALL<-function(m,ncl){
library(snowfall)
sfInit(parallel = TRUE, cpus = ncl)
mTemp<- sfApply(m,2,mysort)
sfStop()
return(mTemp)
}
原文：http://www.cnblogs.com/MarsMercury/p/4908263.html