当我在 R 中应用此代码时,循环 和sapply
比降雪的函数更快。我究竟做错了什么?(使用 Windows 8)
library(snowfall)
a<- 2
sfInit(parallel = TRUE, cpus = 4)
wrapper <- function(x){((x*a)^2)/3}
sfExport('a')
values <- seq(0, 100,1)
benchmark(for(i in 1:length(values)){wrapper(i)},sapply(values,wrapper),sfLapply(values, wrapper),sfClusterApplyLB(values, wrapper))
sfStop()
100 次复制后经过的时间:
循环 0.05 0.07 sfClusterApplySB 2.94 sf应用 0.26