并行for循环R

Question

我正在调用for循环中的函数。

sample_fun <- function(x,y) { 
    # do something with x,y and return value 
} 

My loop looks like 
result = list() 

for(i in 1:10000) 
    result[i] = sample_fun(i,i+1) 

我该如何并行化这个循环。使用foreach和dopar会导致下标错误。

Answer 1

library(doSNOW) 

sample_fun <- function(x,y) { 
    # do something with x,y and return value 
} 

threads <- 8 
N <- 10000 

cl <- makeCluster(threads) 
registerDoSNOW(cl) 

result <- foreach(i=1:N) %dopar% sample_fun(i,i+1) 

stopCluster(cl) 

http://www.joyofdata.de/blog/parallel-computing-r-windows-using-dosnow-foreach/