R/theff.R

`theff` <-
function (tab, digits=2) {
  round(chisq.test(tab)$expected, digits)
}
juba/rgrs documentation built on May 20, 2019, 4:20 a.m.