I'm trying to run a small test of %dopar% and it always comes out slower.. Here's some dummy code and output. I'm running this on win7x64 core i7-2600k...
library(foreach)
library(doSNOW)
registerDoSNOW(makeCluster(3, type = "SOCK"))
N <- 3*(10^4)
system.time(foreach(i = 1:N) %do% {sum(rnorm(N))})
system.time(foreach(i = 1:N) %dopar% {sum(rnorm(N))} )
Here's the output:
> system.time(foreach(i = 1:N) %do% {sum(rnorm(N))})
 user  system elapsed 
90.39    0.00   90.42 
> system.time(foreach(i = 1:N) %dopar% {sum(rnorm(N))} )
user  system elapsed 
17.00    0.89  177.11