+ ntasks = .toInteger(ntasks, function(x) x>=1)
+ ncores_tasks = .toInteger(ncores_tasks, function(x) x>=1)
+ ncores_clust = .toInteger(ncores_clust, function(x) x>=1)
+ nb_series_per_chunk = .toInteger(nb_series_per_chunk, function(x) x>=K1)
+ min_series_per_chunk = .toInteger(K1, function(x) x>=K1 && x<=nb_series_per_chunk)
+ if (!is.character(sep))
+ stop("'sep': character")
+ nbytes = .toInteger(nbytes, function(x) x==4 || x==8)
+
+ # Serialize series if required, to always use a function
+ bin_dir = "epclust.bin/"
+ dir.create(bin_dir, showWarnings=FALSE, mode="0755")
+ if (!is.function(getSeries))
+ {
+ series_file = paste(bin_dir,"data",sep="") ; unlink(series_file)
+ serialize(getSeries, series_file, nb_series_per_chunk, sep, nbytes, endian)
+ getSeries = function(indices) getDataInFile(indices, series_file, nbytes, endian)
+ }