I'm trying to perform a Chi Square Test on R but not getting a correct rejection rate?

前端未结

关注

 0  1321

ChiTest = function(bin,sample) {
  observed <- hist(sample,breaks=seq(0,4,by=1/bin),plot=FALSE) ;
  return((bin/length(sample))*sum((observed$counts-length(sample


                      
              相关标签: