ppam_exe = function(path=".", np=parallel::detectCores(), data=NULL,
- args="DontLetMeEmptyPlease!")
+ nbSeriesPerChunk, nbClusters, randomize=1, p_dissims=2)
{
+ args = paste(nbSeriesPerChunk," ",nbClusters," ",randomize," ",p_dissims,sep="")
+
command_line = paste("mpirun -np ",np," ",path,"/ppam.exe cluster",sep="")
#if data provided (as data.frame or matrix...): binarize it, and add it as first argument
sep=""))
}
-deserialize = function(path=".", binSeries, csvSeries, ranks="-1")
+deserialize = function(path=".", binSeries, csvSeries, ranks="-1", return=TRUE)
{
system(paste(path,"/ppam.exe deserialize ",binSeries," ",csvSeries," ",ranks,sep=""))
- return ( read.table(csvSeries, sep=",") )
+ if (return)
+ return ( read.table(csvSeries, sep=",") )
}