-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)
+#' }
+#' cl = epclust(getData, K1=200, K2=15, ntasks=1000, nb_series_per_chunk=5000, WER="mix")
+#' @export
+epclust = function(data, K1, K2,
+ ntasks=1, nb_series_per_chunk=50*K1, min_series_per_chunk=5*K1,
+ writeTmp=defaultWriteTmp, readTmp=defaultReadTmp, wf="haar", WER="end",
+ ncores_tasks=1, ncores_clust=4)