From: Benjamin Auder Date: Sun, 16 Oct 2016 23:00:12 +0000 (+0200) Subject: add R wrapper for stage 1 X-Git-Url: https://git.auder.net/doc/html/scripts/pieces/cq.svg?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) +}