X-Git-Url: http://www.iramuteq.org/git?a=blobdiff_plain;f=Rscripts%2Fchdquest.R;fp=Rscripts%2Fchdquest.R;h=f40a368a1c3894f152b9094c085301194fa306d7;hb=a2a0a470ca446cb6cdf9e942d54b6cd2eed306c9;hp=b4c4a49724a8b2d4a354e0a3e2a601f113784509;hpb=8aafccab06936a00d3a134bfc7bfe7e71f8e8ea6;p=iramuteq

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)