X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fsimi.R;h=0439a3b5dc1de84a9d7529d2d6b76c29b5a99bba;hp=d5dc800286f845b11d566e03f9810e8a12bf72e4;hb=ed43a2036c36b4146a957ae2ba893e80b3c14342;hpb=26e173b2517b90bd25aed401fa6e2140342eeb87

diff --git a/Rscripts/simi.R b/Rscripts/simi.R
index d5dc800..0439a3b 100644
--- a/Rscripts/simi.R
+++ b/Rscripts/simi.R
@@ -450,7 +450,7 @@ merge.graph <- function(graphs) {
         #rgbcol1 <- RGB(rbgcol1[1],rbgcol1[2],rbgcol1[3])
         rbgcol2 <- col2rgb(cols[i])
         rbgcol2 <- rbgcol2/255
-        rgbcol2 <- RGB(rbgcol2[1],rbgcol2[2],rbgcol2[3])       
+        #rgbcol2 <- RGB(rbgcol2[1],rbgcol2[2],rbgcol2[3])       
         for (j in totest) {
             alpha <- tocomp[j] /(V.weight[j] + tocomp[j])
             rbgcol1 <- col2rgb(V.color[j])
@@ -478,7 +478,6 @@ merge.graph <- function(graphs) {
         E.weight[fr2] <- tocomp[fr2]        
     }
     V(ng)$weight <- V.weight
-    print(V.color)
     V(ng)$color <- V.color
     E(ng)$weight <- E.weight
     ng