projects
/
epclust.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a63a8fb409b7399e193307ce835a38ed29847c8b
[epclust.git]
/
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)