X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=code%2Fstage2%2Fsrc%2Funused%2Feffectives-per-classe.r;fp=code%2Fstage2%2Fsrc%2Funused%2Feffectives-per-classe.r;h=a63a8fb409b7399e193307ce835a38ed29847c8b;hb=27c3a4bf83aa22de0308e7bec023652a16e31f9e;hp=0000000000000000000000000000000000000000;hpb=572d139adaf3ca05e1c25ad29a71d3b38f0bcef8;p=epclust.git

diff --git a/code/stage2/src/unused/effectives-per-classe.r b/code/stage2/src/unused/effectives-per-classe.r
new file mode 100644
index 0000000..a63a8fb
--- /dev/null
+++ b/code/stage2/src/unused/effectives-per-classe.r
@@ -0,0 +1,6 @@
+# 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)