system("env|sort") getClusterOption("spec") mycomp<-function(cl,N=1024) { A<-array(rnorm(N*N),dim=c(N,N)) B<-array(rnorm(N*N),dim=c(N,N)) C<-parMM(cl,A,B) } plot(snow.time({ cl <- makeCluster(getClusterOption("spec")) mycomp(cl,1024) gc() mycomp(cl,1024) gc() mycomp(cl,1024) gc() stopCluster(cl) }))