correction

[iramuteq] / Rscripts / chdquest.R

diff --git a/Rscripts/chdquest.R b/Rscripts/chdquest.R
index e8ad294..f40a368 100644 (file)
--- a/Rscripts/chdquest.R
+++ b/Rscripts/chdquest.R
@@ -1,6 +1,6 @@
 #Author: Pierre Ratinaud
-#Copyright (c) 2008-2009 Pierre Ratinaud
-#Lisense: GNU/GPL
+#Copyright (c) 2008-2020 Pierre Ratinaud
+#License: GNU/GPL
 
 fille<-function(classe,classeuce) {
        listfm<-unique(unlist(classeuce[classeuce[,classe%/%2]==classe,]))
@@ -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)