chitable[2,1]<-poids2[j]-chitable[1,1]
chitable[2,2]<-nrow(classeuce1)-poids2[j]-chitable[1,2]
chitest<-chisq.test(chitable,correct=FALSE)
chitable[2,1]<-poids2[j]-chitable[1,1]
chitable[2,2]<-nrow(classeuce1)-poids2[j]-chitable[1,2]
chitest<-chisq.test(chitable,correct=FALSE)