Nothing
# An implementation of McNemar 1945
.mcnemar.test <- function(ak, bk, ck, dk) .mcnemar.impl(bk,ck)
.mcnemar.impl <- function(bk, ck) {
b <- sum(bk)
c <- sum(ck)
(b - c)^2/(b + c)
}
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.