このコードを R に適用すると、ループとsapply
スノーフォールの関数よりも高速になります。私は何を間違っていますか?(windows8を使用)
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