发帖
雷达卡
最近在研究R并行计算，用自定义函数测试了下，发现并行计算居然比单线程计算耗时还大，测试时还发现，真正并行计算的时间只有十几秒，而且各个cpu的使用率都达不到90%，不知道有没有改进的办法。希望各给高手帮忙解答一下：
自定义函数如下：
> func
function(x,y){
return(x+y)
}
单线程代码如下：
> system.time({ x <- foreach(a = 1:500000,b=rep(10,500000)) %do% func(a,b) })
用户 系统 流逝
398.044 2.856 400.906
并行计算代码如下：
> cl <- makeCluster(4)
> registerDoParallel(cl)
> system.time({ x <- foreach(a = 1:500000,b=rep(10,500000)) %dopar% func(a,b) })
用户 系统 流逝
526.683 12.466 539.232
京公网安备 11010802022788号
