X-Git-Url: http://www.iramuteq.org/git?a=blobdiff_plain;f=Rscripts%2FCHD.R;fp=Rscripts%2FCHD.R;h=4e64b01bbb612648265ced9c2c8cb303118e08ca;hb=e6f6318b1ab077a97c10559b3323ccf158ae6203;hp=a480df99d95645cdd580af21dd3790f20ba16c4c;hpb=971de797b3c5602affd200633161ba87576b93f5;p=iramuteq

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
     				}
     			}