X-Git-Url: https://git.auder.net/%7B%7B%20path%28%27fos_user_profile_show%27%29%20%7D%7D?a=blobdiff_plain;f=old_C_code%2Fstage2_UNFINISHED%2Fsrc%2Funused%2Feffectives-per-classe.r;fp=old_C_code%2Fstage2_UNFINISHED%2Fsrc%2Funused%2Feffectives-per-classe.r;h=0000000000000000000000000000000000000000;hb=62deb4244895a20a35397dfb062f0b9fe94c5012;hp=a63a8fb409b7399e193307ce835a38ed29847c8b;hpb=3eef8d3df59ded9a281cff51f79fe824198a7427;p=epclust.git

diff --git a/old_C_code/stage2_UNFINISHED/src/unused/effectives-per-classe.r b/old_C_code/stage2_UNFINISHED/src/unused/effectives-per-classe.r
deleted file mode 100644
index a63a8fb..0000000
--- a/old_C_code/stage2_UNFINISHED/src/unused/effectives-per-classe.r
+++ /dev/null
@@ -1,6 +0,0 @@
-# compute the effectives per class
-
-load("~/ownCloud/projects/2014_EDF-Orsay-Lyon2/res/clfit200RC.Rdata")
-clustfactor <- read.table("~/tmp/clustfactorWER15.txt")
-
-aggregate(c(table(res[,1])), by = list(clustfactor$x), FUN = sum)