Nothing
weighted.median <-
function(v,weights){
weights<-weights[order(v)]
v<-sort(v)
sw<-sum(weights)
return(v[which.min(abs(cumsum(weights)-0.5*sw))])
}
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.