X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fsimi.R;h=8c5da1056062db12e90690c40aa6eebb329b365b;hp=9f4b52bbeae115c2194bcfc7e5d23f9d609957c7;hb=a6c0faa62f33e5e64ad7eab5b9d804be99c6759a;hpb=372c8e0f417eec05e526c019889ea11a4fabac49;ds=sidebyside

diff --git a/Rscripts/simi.R b/Rscripts/simi.R
index 9f4b52b..8c5da10 100644
--- a/Rscripts/simi.R
+++ b/Rscripts/simi.R
@@ -172,7 +172,7 @@ do.simi <- function(x, method = 'cooc',seuil = NULL, p.type = 'tkplot',layout.ty
         we.width <- NULL
     }
     if (method != 'binom') {
-        we.label <- round(E(g.toplot)$weight,1)
+        we.label <- round(E(g.toplot)$weight,2)
     } else {
         we.label <- round(E(g.toplot)$weight,3)
     }
@@ -313,6 +313,7 @@ plot.simi <- function(graph.simi, p.type = 'tkplot',filename=NULL, communities =
         #rgl.open()
         #par3d(cex=0.8)
         lo <- layout.norm(lo, -10, 10, -10, 10, -10, 10)
+		bg3d('white')
 		rglplot(g.toplot,vertex.label='', edge.width=we.width/10, vertex.size=0.01, vertex.color=vertex.col, vertex.label.color="black", edge.color = edge.col, layout=lo, rescale = FALSE)
         #los <- layout.norm(lo, -1, 1, -1, 1, -1, 1)
 		text3d(lo[,1], lo[,2], lo[,3], vire.nonascii(v.label), col = vertex.label.color, alpha = 1, cex = vertex.label.cex)