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

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