X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2FR%2Futils.R;h=72f59ecec977b0fe69aa892cf749b7bb0a9feb4b;hp=1e4ea30f9a8297031724386e168bfd5083902602;hb=3fb6e823601002c44ffbf913e83c8d24cfa1e819;hpb=282342bafdc9ff65c5df98c6e2304d63b33b9fb2

diff --git a/epclust/R/utils.R b/epclust/R/utils.R
index 1e4ea30..72f59ec 100644
--- a/epclust/R/utils.R
+++ b/epclust/R/utils.R
@@ -36,9 +36,9 @@
 #' @return A matrix of size log(L) x n containing contributions in columns
 #'
 #' @export
-curvesToContribs <- function(series, wav_filt, contrib_type)
+curvesToContribs <- function(curves, wav_filt, contrib_type)
 {
-	series <- as.matrix(series)
+	series <- as.matrix(curves)
 	L <- nrow(series)
 	D <- ceiling( log2(L) )
 	# Series are interpolated to all have length 2^D
@@ -96,7 +96,7 @@ curvesToContribs <- function(series, wav_filt, contrib_type)
 
 #' assignMedoids
 #'
-#' Find the closest medoid for each curve in input (by-columns matrix)
+#' Find the closest medoid for each curve in input
 #'
 #' @param curves (Chunk) of series whose medoids indices must be found
 #' @param medoids Matrix of medoids (in columns)
@@ -128,7 +128,7 @@ filterMA <- function(M_, w_)
 #' cleanBin
 #'
 #' Remove binary files to re-generate them at next run of \code{claws()}.
-#' Note: run it in the folder where the computations occurred (or no effect).
+#' To be run in the folder where computations occurred (or no effect).
 #'
 #' @export
 cleanBin <- function()