quantile.lorenz <-
function(x, probs = seq(0, 1, 0.25), type = c("L", "p"), ...)
{
type <- match.arg(type)
structure(sapply(probs, function(z) min(x[x[,type] >= z, "x"])),
names=paste0(format(100 * probs, trim=TRUE,
digits = max(2L, getOption("digits"))), "%"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.