projects
/
epclust.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
complete wrapper.R; update TODO
[epclust.git]
/
old_C_code
/
stage2_UNFINISHED
/
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)