inst/snippets/Example7.6.R

jury <- c(780, 117, 114, 384, 58)
chisq.test(jury, p = c(.54, .18, .12, .15, .01))
xchisq.test(jury, p = c(.54, .18, .12, .15, .01)) # to list expected counts
rpruim/Lock5withR documentation built on May 28, 2019, 1:31 a.m.