X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=code%2Fstage2%2Fsrc%2F03_compute-sums-of-classes_2009.r;h=20d2d18ff4b77c8443e16060f59cba68cd7ee6e1;hb=572d139adaf3ca05e1c25ad29a71d3b38f0bcef8;hp=0623ba1566fb6a70fa067b6f07819c96fea5d2b2;hpb=0c393effd785e90f9414f2132f6732cabef7c176;p=epclust.git

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