#' Compute the WER distances between the series at specified indices, which are
#' obtaind by \code{getSeries(indices)}
#'
-#' @param indices Range of series indices to cluster
-#' @param getSeries Function to retrieve series (argument: 'indices', integer vector),
+#' @param indices Indices of the series to consider
+#' @param getSeries Function to retrieve series (argument: 'inds', integer vector),
#' as columns of a matrix
#' @param ncores Number of cores for parallel runs
#' @inheritParams claws
#'
#' @export
computeWerDists <- function(indices, getSeries, nb_series_per_chunk, smooth_lvl=3, nvoice=4,
- nbytes=4, endian=.Platform$endian, ncores=3, verbose=FALSE, parll=TRUE)
+ nbytes=4, endian=.Platform$endian, ncores=3, verbose=FALSE)
{
n <- length(indices)
L <- length(getSeries(1)) #TODO: not very neat way to get L
for (inds in indices_cwt)
computeSaveCWT(inds)
+ parll <- (ncores > 1)
if (parll)
{
# outfile=="" to see stderr/stdout on terminal