From 064e2e78bafe5e66942e1741b40ca3304cc66f49 Mon Sep 17 00:00:00 2001
From: Dirk Sarpe <dsarpe@posteo.de>
Date: Mon, 18 Sep 2017 11:30:56 +0200
Subject: [PATCH] add toy example to demonstrate parallelisation
use %do% for single core
use %dopar% for multi core
---
parallel_example.r | 13 +++++++++++++
1 file changed, 13 insertions(+)
create mode 100644 parallel_example.r
diff --git a/parallel_example.r b/parallel_example.r
new file mode 100644
index 0000000..f201248
--- /dev/null
+++ b/parallel_example.r
@@ -0,0 +1,13 @@
+library(doParallel)
+registerDoParallel()
+
+x <- iris[which(iris[,5] != "setosa"), c(1,5)]
+trials <- 10000
+ptime <- system.time({
+ r <- foreach(icount(trials), .combine=cbind) %do% {
+ ind <- sample(100, 100, replace=TRUE)
+ result1 <- glm(x[ind,2]~x[ind,1], family=binomial(logit))
+ coefficients(result1)
+ }
+})[3]
+ptime
--
GitLab