code/stage2/src/unused/effectives-per-classe.r

   1 # compute the effectives per class
   2
   3 load("~/ownCloud/projects/2014_EDF-Orsay-Lyon2/res/clfit200RC.Rdata")
   4 clustfactor <- read.table("~/tmp/clustfactorWER15.txt")
   5
   6 aggregate(c(table(res[,1])), by = list(clustfactor$x), FUN = sum)