Nothing
wmean2 <-
function(zmu,y) {
l <- length(zmu)
weighted.mean( (y-zmu[l])^2, zmu[1:(l-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.