#' @return A distances matrix of size K x K where K == length(indices)
#'
#' @export
-computeWerDists <- function(indices, getSeries, nb_series_per_chunk, smooth_lvl=3, nvoice=4,
- nbytes=4, endian=.Platform$endian, ncores=3, verbose=FALSE)
+computeWerDists <- function(indices, getSeries, nb_series_per_chunk, smooth_lvl=3,
+ nvoice=4, nbytes=4, endian=.Platform$endian, ncores=3, verbose=FALSE)
{
n <- length(indices)
L <- length(getSeries(1)) #TODO: not very neat way to get L
ignored <-
if (parll)
- parallel::parLapply(cl, seq_len(n-1), computeDistances)
+ parallel::parLapplyLB(cl, seq_len(n-1), computeDistances)
else
lapply(seq_len(n-1), computeDistances)
Xwer_dist[n,n] <- 0.