Nothing
chi2ncp <- function(alpha, beta, df = 1) {
cv <- qchisq(alpha, df = df, lower.tail = FALSE) # critical value for chisq statistic
ncpmax <- 1 # find upper limit by doubling until bracket achieved
while (pchisq(cv, df = df, lower.tail = FALSE, ncp = ncpmax) < beta) ncpmax <- ncpmax*2
return(uniroot(function(ncp)
return(pchisq(cv, df = df, lower.tail = FALSE, ncp = ncp) - beta),
c(0, ncpmax))$root) # line search
}
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.