}
if (!is.null(seuil)) {
- print(seuil)
if (seuil >= max(mat.simi)) seuil <- 0
vec<-vector()
w<-E(g.toplot)$weight
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
}