Commit | Line | Data |
---|---|---|
6ad3f3fd BA |
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 |