Parallel R Example.R

library(snow)
library(plyr)
library(doSNOW)
library(compiler)

data(mtcars)
ratio=cmpfun(
		function(x, w) {
			return(mean((x$mpg * w) / (x$wt * w)))
	}
)


clust=makeCluster(4, "SOCK")
clusterEvalQ(clust, {library(boot)})
clusterExport(clust, c("ratio", "mtcars"))
registerDoSNOW(clust)
result=llply(
	seq_len(10),
	.parallel=TRUE,
	.fun=function(i) {
		return(boot(data=mtcars, statistic=ratio, 1))
	}
)

clust=stopCluster(clust)