#'
#' @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