add R wrapper for stage 1

diff --git a/code/stage1/wrapper.R b/code/stage1/wrapper.R
new file mode 100644 (file)
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)
+}