X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fsimi.R;h=29b0b2331a8fe4b45a6ca959b452d917259f4b20;hp=a582ec2049fa3ea22e5c55fb062bfc7603ee7c2a;hb=191e64482209e897e7bf1853646c0d2ca84db1f2;hpb=fc14fc86c13eb0ed0f420771b08cc42a5db90c01

diff --git a/Rscripts/simi.R b/Rscripts/simi.R
index a582ec2..29b0b23 100644
--- a/Rscripts/simi.R
+++ b/Rscripts/simi.R
@@ -138,7 +138,6 @@ do.simi <- function(x, method = 'cooc',seuil = NULL, p.type = 'tkplot',layout.ty
 	}
 
     if (!is.null(seuil)) {
-        print(seuil)
         if (seuil >= max(mat.simi)) seuil <- 0
         vec<-vector()
         w<-E(g.toplot)$weight
@@ -339,9 +338,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
 }