From: Benjamin Auder <benjamin.auder@somewhere>
Date: Sun, 16 Oct 2016 23:00:12 +0000 (+0200)
Subject: add R wrapper for stage 1
X-Git-Url: https://git.auder.net/variants/current/doc/scripts/pieces/img/%3C?a=commitdiff_plain;h=f1fea2229d365a222b5aff0cb1b4d346c4437e8b;p=epclust.git

add R wrapper for stage 1
---

diff --git a/code/stage1/wrapper.R b/code/stage1/wrapper.R
new file mode 100644
index 0000000..2549f1f
--- /dev/null
+++ b/code/stage1/wrapper.R
@@ -0,0 +1,9 @@
+ppam_exe = function(pathToExe, nbProcess, ...)
+{
+	command_line = paste("mpirun -np ",nbProcess," ",pathToExe,"/ppam.exe",sep="")
+	args = list(...)
+	for (i in 1:length(args))
+		command_line = paste(command_line, args[[i]])
+	print(paste("EXECUTE: '", command_line,"'",sep=""))
+	system(command_line)
+}