From: pierre <ratinaud@univ-tlse2.fr>
Date: Mon, 20 Jun 2022 16:30:26 +0000 (+0200)
Subject: correction labbé
X-Git-Url: http://www.iramuteq.org/git?a=commitdiff_plain;ds=sidebyside;h=14a76814b60d36e92e4aff1a174d25e1868f18f2;p=iramuteq

correction labbé
---

diff --git a/Rscripts/distance-labbe.R b/Rscripts/distance-labbe.R
index 3d7c296..d68f743 100644
--- a/Rscripts/distance-labbe.R
+++ b/Rscripts/distance-labbe.R
@@ -29,7 +29,7 @@ compute.labbe <- function(x, y, tab) {
         U <- N1/N2
         mini.tab[,2] <- mini.tab[,2] * U
 		col.plusgrand <- mini.tab[,2]
-		cs.plus.grand <- sum(col.plusgrand[col.plusgrand>1])
+		cs.plus.grand <- sum(col.plusgrand[col.plusgrand>=1])
     }
     commun <- which((mini.tab[,1] > 0) & (mini.tab[,2] > 0))
     deA <- which((mini.tab[,plus.petit] > 0) & (mini.tab[,plus.grand] == 0))