From: Benjamin Auder Date: Fri, 17 Mar 2017 14:12:38 +0000 (+0100) Subject: default values for computeWerDists X-Git-Url: https://git.auder.net/doc/html/pieces/img/%7B%7B?a=commitdiff_plain;h=c25d83a0ea7435d3c72ed74738be86ddcccd7e66;p=epclust.git default values for computeWerDists --- diff --git a/epclust/R/computeWerDists.R b/epclust/R/computeWerDists.R index 4dbcb7b..c6fa633 100644 --- a/epclust/R/computeWerDists.R +++ b/epclust/R/computeWerDists.R @@ -12,8 +12,8 @@ #' @return A distances matrix of size K x K where K == length(indices) #' #' @export -computeWerDists <- function(indices, getSeries, nb_series_per_chunk, smooth_lvl, nvoice, - nbytes, endian, ncores=3, verbose=FALSE, parll=TRUE) +computeWerDists <- function(indices, getSeries, nb_series_per_chunk, smooth_lvl=3, nvoice=4, + nbytes=4, endian=.Platform$endian, ncores=3, verbose=FALSE, parll=TRUE) { n <- length(indices) L <- length(getSeries(1)) #TODO: not very neat way to get L