From 14a76814b60d36e92e4aff1a174d25e1868f18f2 Mon Sep 17 00:00:00 2001 From: pierre Date: Mon, 20 Jun 2022 18:30:26 +0200 Subject: [PATCH] =?utf8?q?correction=20labb=C3=A9?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Rscripts/distance-labbe.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.7.4