Last chance! 50% off unlimited learning
Sale ends in
ptw2011.gof.test(observed, expected)
draws <- 17
observed <- matrix(c(.294, .176, .118, .411), nrow=2) * draws
expected <- matrix(c(.235, .235, .176, .353), nrow=2) * draws
ptw2011.gof.test(observed, expected) # not signficiant
Run the code above in your browser using DataLab