-epclust = function(data, K, nb_series_per_chunk, min_series_per_chunk=10*K,
- writeTmp=defaultWriteTmp, readTmp=defaultReadTmp, wf="haar", WER="end", ncores=NULL)
+#'
+#' @examples
+#' getData = function(start, n) {
+#' con = dbConnect(drv = RSQLite::SQLite(), dbname = "mydata.sqlite")
+#' df = dbGetQuery(con, paste(
+#' "SELECT * FROM times_values GROUP BY id OFFSET ",start,
+#' "LIMIT ", n, " ORDER BY date", sep=""))
+#' return (df)
+#' }
+#' #####TODO: if DB, array rank --> ID at first retrieval, when computing coeffs; so:: NO use of IDs !
+#' #TODO: 3 examples, data.frame / binary file / DB sqLite
+#' + sampleCurves : wavBootstrap de package wmtsa
+#' cl = epclust(getData, K1=200, K2=15, ntasks=1000, nb_series_per_chunk=5000, WER="mix")
+#' @export
+claws = function(getSeries, K1, K2,
+ random=TRUE, #randomize series order?
+ wf="haar", #stage 1
+ WER="end", #stage 2
+ ntasks=1, ncores_tasks=1, ncores_clust=4, #control parallelism
+ nb_series_per_chunk=50*K1, min_series_per_chunk=5*K1, #chunk size
+ sep=",", #ASCII input separator
+ nbytes=4, endian=.Platform$endian) #serialization (write,read)