Nothing
cramer_v <- function(x) {
UseMethod("cramer_v")
}
cramer_v.table <- function(x) {
N <- sum(x)
k <- min(dim(x))
if (k < 2)
stop("k = 1")
unname(sqrt(chisq.test(x)$statistic / (N*(k-1 ))))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.