Nothing
gx.quantile <-
function (xx, f, display = TRUE)
{
temp.x <- remove.na(xx)
x <- sort(temp.x$x[1:temp.x$n])
pr <- (rank(x) - 0.5)/temp.x$n
q <- signif(approx(pr, x, f)$y, 4)
if (display)
cat(" Fractile for", deparse(substitute(xx)), "=", f,
"\n Quantile =", q, "\n")
invisible(list(q = q))
}
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.