library(snow) machines <- c("hyland", "dogleg", "crab", "sugar", "strike", "pool", "pool", "pool") cl <- makeSOCKcluster(machines) clusterCall(cl, function() c(Sys.info()[c("nodename","machine")], Sys.getpid())) library(rlecuyer) clusterSetupRNG(cl) invisible(clusterEvalQ(cl, library(nice))) invisible(clusterEvalQ(cl, set.my.priority(19))) out1 <- unlist(clusterEvalQ(cl, runif(5))) out2 <- unlist(clusterEvalQ(cl, runif(5))) length(out1) length(unique(out1)) length(out2) length(unique(out2)) length(c(out1, out2)) length(unique(c(out1, out2))) stopCluster(cl)