modif chdtxt, a tester, problemes sur double sur rst

[iramuteq] / Rscripts / simi.R

diff --git a/Rscripts/simi.R b/Rscripts/simi.R
index 98bacf7..067eaec 100644 (file)
--- a/Rscripts/simi.R
+++ b/Rscripts/simi.R
@@ -297,4 +297,9 @@ 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
 }