ameva = function (tb) { nr <- dim(tb)[1] nc <- dim(tb)[2] den <- nr * (nc - 1) val = chiSq(tb)/den return(val) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.