Nothing
chisq.pval <- function (k1, n1, k2, n2, correct=TRUE,
alternative=c("two.sided", "less", "greater")) {
alternative <- match.arg(alternative)
if (alternative == "two.sided") {
X2 <- chisq(k1, n1, k2, n2, correct=correct)
pval <- pchisq(X2, df=1, lower.tail=FALSE)
} else {
z <- chisq(k1, n1, k2, n2, correct=correct, one.sided=TRUE)
pval <- pnorm(z, lower.tail = (alternative == "less"))
}
pval
}
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.