Parallelisig R usig foreach/doSNOW