projects
/
epclust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
add some comments after meeting 17-11-2016
[epclust.git]
/
code
/
stage2
/
src
/
03_compute-sums-of-classes_2009.r
diff --git
a/code/stage2/src/03_compute-sums-of-classes_2009.r
b/code/stage2/src/03_compute-sums-of-classes_2009.r
index
0623ba1
..
20d2d18
100644
(file)
--- a/
code/stage2/src/03_compute-sums-of-classes_2009.r
+++ b/
code/stage2/src/03_compute-sums-of-classes_2009.r
@@
-54,6
+54,8
@@
for(b in seq_along(blocks)){ # Reading loop
# if(length(which(rownames(datamat) == "218095"))>0) print(b);
+
+ #TODO: en C : lourd
for(k in 1:K){
clustk <- which(clustfactor == k)
if(length(clustk) > 0) {