R/example_test_iris.R

In ropenscilabs/snowball: Spin up a managed cluster and perform parallel calculations

## adapted from https://cran.r-project.org/web/packages/doParallel/vignettes/gettingstartedParallel.pdf

# library(foreach)
# library(doParallel)
#
# cl <- makeCluster(2)
# registerDoParallel(cl)
#
# x <- iris[which(iris[,5] != "setosa"), c(1,5)]
# trials <- 10000L
# ptime <- system.time({
#   r <- foreach(icount(trials), .combine=cbind) %dopar% {
#     ind <- sample(100, 100, replace=TRUE)
#     result1 <- glm(x[ind,2] ~ x[ind,1], family=binomial(logit))
#     coefficients(result1)
#   }
# })[3]
# ptime