projects
/
iramuteq
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
segments repetes dans classes
[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)) {
}
if (!is.null(seuil)) {
- print(seuil)
if (seuil >= max(mat.simi)) seuil <- 0
vec<-vector()
w<-E(g.toplot)$weight
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
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
}
}