From a2a0a470ca446cb6cdf9e942d54b6cd2eed306c9 Mon Sep 17 00:00:00 2001 From: pierre Date: Mon, 12 Feb 2024 16:23:40 +0100 Subject: [PATCH] correction --- Rscripts/chdquest.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Rscripts/chdquest.R b/Rscripts/chdquest.R index b4c4a49..f40a368 100644 --- a/Rscripts/chdquest.R +++ b/Rscripts/chdquest.R @@ -157,7 +157,7 @@ Rchdquest<-function(tableuc1,listeuce1,uceout ,nbt = 9, mincl = 2, mode.patate = chitable[2,1]<-poids2[j]-chitable[1,1] chitable[2,2]<-nrow(classeuce1)-poids2[j]-chitable[1,2] chitest<-chisq.test(chitable,correct=FALSE) - if ((chitable[1,1]-chitest$expected)<0) { + if ((chitable[1,1]-chitest$expected[1,1])<0) { chicroise[i,j]<--round(chitest$statistic,digits=7) } else { chicroise[i,j]<-round(chitest$statistic,digits=7) -- 2.7.4