X-Git-Url: http://iramuteq.org/git?p=iramuteq;a=blobdiff_plain;f=Rscripts%2Fsimi.R;fp=Rscripts%2Fsimi.R;h=067eaec6557afdff1cee079cacaf20c01e03412f;hp=98bacf7a50c3db6ac68d39a006704ed139f5a4e1;hb=ad8fe486b34f1cee918ea8564bf909e30cd25328;hpb=8cebf6f5e4531b73d8ba32f834c10cefd1086d80

diff --git a/Rscripts/simi.R b/Rscripts/simi.R
index 98bacf7..067eaec 100644
--- 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
 }