major folder reorganisation, R pkg is now epclust/ at first level. Experimental usage...

[epclust.git] / old_C_code / stage2 / src / unused / effectives-per-classe.r

diff --git a/old_C_code/stage2/src/unused/effectives-per-classe.r b/old_C_code/stage2/src/unused/effectives-per-classe.r
new file mode 100644 (file)
index 0000000..a63a8fb
--- /dev/null
+++ b/old_C_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)