Nothing
`weighted.fractile` <-
function(y, w, p)
{
# fractiles a/(a+b), b/(a+b)
a <- 1-p
b <- p
ox <- order(y)
y <- y[ox]
w <- w[ox]
k <- 1
low <- cumsum(c(0,w))
up <- sum(w)-low
df <- a*low-b*up
repeat{
if (df[k] < 0) k<-k+1
else if (df[k] == 0) return((w[k]*y[k]+w[k-1]*y[k-1])/(w[k]+w[k-1]))
else return(y[k-1])
}
}
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.