#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,]))
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)