X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fsimi.R;h=da3aa905d8a44f08472b480a8920e6c663eec541;hp=a582ec2049fa3ea22e5c55fb062bfc7603ee7c2a;hb=ea81472844df73875a9b2ba9122d487361fd88ac;hpb=335b23ebd11edc39118c6c06deb930bd4a9cf0a9

diff --git a/Rscripts/simi.R b/Rscripts/simi.R
index a582ec2..da3aa90 100644
--- a/Rscripts/simi.R
+++ b/Rscripts/simi.R
@@ -314,6 +314,7 @@ plot.simi <- function(graph.simi, p.type = 'tkplot',filename=NULL, communities =
         lo <- layout.norm(lo, -10, 10, -10, 10, -10, 10)
 		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)
+        print(v.label)
 		text3d(lo[,1], lo[,2], lo[,3], vire.nonascii(v.label), col = vertex.label.color, alpha = 1, cex = vertex.label.cex)
         rgl.spheres(lo, col = vertex.col, radius = vertex.size/100, alpha = alpha)
         rgl.bg(color = c('white','black'))
@@ -339,9 +340,4 @@ graph.word <- function(mat.simi, index) {
     nm[,index] <- mat.simi[,index]
     nm[index,] <- mat.simi[index,]
     nm
-#    cs <- colSums(nm)
-#    if (cs) nm <- nm[,-which(cs==0)]
-#    rs <- rowSums(nm)
-#    if (rs) nm <- nm[-which(rs==0),]
-#    nm
 }