Nothing
`cramer.v` <-
function(tab) {
n <- sum(tab)
chid <- chisq.test(tab,correct=FALSE)$statistic
dim <- min(nrow(tab),ncol(tab)) - 1
as.numeric(sqrt(chid/(n*dim)))
}
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.