From c25d83a0ea7435d3c72ed74738be86ddcccd7e66 Mon Sep 17 00:00:00 2001 From: Benjamin Auder <benjamin.auder@somewhere> Date: Fri, 17 Mar 2017 15:12:38 +0100 Subject: [PATCH] default values for computeWerDists --- epclust/R/computeWerDists.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.44.0