Nothing
"Wcutoff" <-
function(p, eps1, eps2, VarW)
{
ncp <- (eps1+eps2)^2/4/VarW
return(sqrt(qchisq(p, 1, ncp)))
}
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.