Nothing
z.score <- function (k, n, p=.5, correct=TRUE) {
.match.len(c("k", "n", "p"), adjust=TRUE) # ensure that vector arguments have same length
if (any(k < 0) || any(k > n) || any(n < 1)) stop("arguments must be integer vectors with 0 <= k <= n")
if (any(p < 0) || any(p > 1)) stop("null hypothesis proportion p must be in range [0,1]")
expected <- n * p # compute z-score (with optional Yates' correction)
variance <- n * p * (1-p)
d <- k - expected
if (correct) d <- sign(d) * pmax(0, abs(d) - .5)
z <- d / sqrt(variance)
z
}
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.