# 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)