Nothing
qn <- function (x, corrFact)
{
if (missing (corrFact))
corrFact = 1 / (sqrt(2) * qnorm(5/8))
ret.C <- .C (C_qn,
as.integer (length (x)),
as.double (corrFact),
parOutD = double (1),
x = as.double (x))
ret.C$parOutD
}
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.