X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=epclust%2Ftests%2Ftestthat%2Ftest.Filter.R;fp=epclust%2Ftests%2Ftestthat%2Ftest.Filter.R;h=d94a5ac8052f1e9261bead01498c9e4a51fd4ee0;hb=6ad3f3fd0ec4f3cd1fd5de4a287c1893293e5bcc;hp=0000000000000000000000000000000000000000;hpb=2c14dbea13c897c6964f49f9cd17622f4c9733c0;p=epclust.git

diff --git a/epclust/tests/testthat/test.Filter.R b/epclust/tests/testthat/test.Filter.R
new file mode 100644
index 0000000..d94a5ac
--- /dev/null
+++ b/epclust/tests/testthat/test.Filter.R
@@ -0,0 +1,8 @@
+TODO: test computeMedoids + filter
+#		#R-equivalent, requiring a matrix (thus potentially breaking "fit-in-memory" hope)
+#		mat_meds = medoids[,]
+#		mi = rep(NA,nb_series)
+#		for (i in 1:nb_series)
+#			mi[i] <- which.min( rowSums( sweep(mat_meds, 2, ref_series[i,], '-')^2 ) )
+#		rm(mat_meds); gc()
+