`theff` <- function (tab, digits=2) { round(chisq.test(tab)$expected, digits) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.