0
當我在R中應用此代碼時,循環和sapply
比降雪的函數更快。我究竟做錯了什麼? (使用的窗戶8)降雪的sfApply和sfClusterApplyLB比正常的循環或補充要慢
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次重複後:
loop 0.05 sapply 0.07 sfClusterApplySB 2.94 sfApply 0.26