Nothing
`weighted.median` <-
function(y, w)
{
ox <- order(y)
y <- y[ox]
w <-w[ox]
k <- 1
low <- cumsum(c(0,w))
up <- sum(w)-low
df <- low-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.