epclust/tests/testthat/test.filter.R

   1 TODO: test computeMedoids + filter
   2 #       #R-equivalent, requiring a matrix (thus potentially breaking "fit-in-memory" hope)
   3 #       mat_meds = medoids[,]
   4 #       mi = rep(NA,nb_series)
   5 #       for (i in 1:nb_series)
   6 #           mi[i] <- which.min( rowSums( sweep(mat_meds, 2, ref_series[i,], '-')^2 ) )
   7 #       rm(mat_meds); gc()
   8