vocabulaire...

[iramuteq] / Rscripts / simi.R

diff --git a/Rscripts/simi.R b/Rscripts/simi.R
index a582ec2..29b0b23 100644 (file)
--- 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
 }