+#' assignMedoids
+#'
+#' Find the closest medoid for each curve in input (by-columns matrix)
+#'
+#' @param curves (Chunk) of series whose medoids indices must be found
+#' @param medoids Matrix of medoids (in columns)
+#'
+#' @return The vector of integer assignments
+#' @export
+assignMedoids <- function(curves, medoids)
+{
+ nb_series <- ncol(curves)
+ mi <- rep(NA,nb_series)
+ for (i in seq_len(nb_series))
+ mi[i] <- which.min( colSums( sweep(medoids, 1, curves[,i], '-')^2 ) )
+ mi
+}
+