X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2FR%2FcomputeWerDists.R;fp=epclust%2FR%2FcomputeWerDists.R;h=9938bc1635cd6ec6a8832a00de581956144a7562;hp=0ad5404e07fffa9ac0524b27ee7f5ad6961dc2c4;hb=01f0d8aa0f3bf5aed29c89b9efa4398d928e511a;hpb=e9f4b74f802246043867982006c812cfa116c4fd diff --git a/epclust/R/computeWerDists.R b/epclust/R/computeWerDists.R index 0ad5404..9938bc1 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=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