串行
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)
}
MarsMercury 2015-10-25 09:44 原文
串行
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)
}