X-Git-Url: http://iramuteq.org/git?a=blobdiff_plain;f=Rscripts%2Fdistance-labbe.R;h=d68f7432c4f3cf23f2e3e917d6a685ffc7f0e3ef;hb=9a7dff9d1c3decc4c46218f6ff4fd61be63fe2dd;hp=eccb3ae8105bbfc3ab9ace9672f4f9239964470f;hpb=26dbd550139e3c5c10d966cf10fe39f1d7d32654;p=iramuteq

diff --git a/Rscripts/distance-labbe.R b/Rscripts/distance-labbe.R
index eccb3ae..d68f743 100644
--- a/Rscripts/distance-labbe.R
+++ b/Rscripts/distance-labbe.R
@@ -1,5 +1,5 @@
 #Author: Pierre Ratinaud
-#Copyright (c) 2015-2016 Pierre Ratinaud
+#Copyright (c) 2008-2020 Pierre Ratinaud
 #License: GNU/GPL
 
 #Distance de Labbe
@@ -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))