From 9ea4c8f11aae4e01a21f4b48231c56a915ead1cb Mon Sep 17 00:00:00 2001
From: pierre <pierre.ratinaud@univ-tlse2.fr>
Date: Thu, 1 Feb 2024 23:50:18 +0100
Subject: [PATCH] R 4.3

---
 Rscripts/CHD.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Rscripts/CHD.R b/Rscripts/CHD.R
index a480df9..4e64b01 100644
--- a/Rscripts/CHD.R
+++ b/Rscripts/CHD.R
@@ -230,7 +230,7 @@ CHD<-function(data.in, x=9, mode.patate = FALSE, svd.method, libsvdc.path=NULL){
     			print('longueur < 0')
     			malcl<-length(vdelta)
     			if ((it>1)&&(!is.logical(listsub[[it]]))&&(!is.logical(listsub[[it-1]]))){
-    				if (listsub[[it]]==listsub[[(it-1)]]){
+    				if (all(listsub[[it]]==listsub[[(it-1)]])){
     					malcl<-0
     				}
     			}
-- 
2.7.4