Nothing
iquantile.lorenz <-
function(x, values, type = c("L", "p"), ...)
{
type <- match.arg(type)
structure(sapply(values, function(z) min(x[x[,"x"] >= z, type])),
names=paste0(format(values, trim=TRUE,
digits = max(2L, getOption("digits")))))
}
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.