From: Pierre Ratinaud <ratinaud@univ-tlse2.fr>
Date: Tue, 12 Jul 2016 12:29:51 +0000 (+0200)
Subject: color
X-Git-Url: http://iramuteq.org/git?a=commitdiff_plain;h=ed43a2036c36b4146a957ae2ba893e80b3c14342;p=iramuteq

color
---

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