Nothing
smedian.sample <-
function(pos, v)
{
w<-v[pos[1]:pos[2]][!is.na(v[pos[1]:pos[2]])]
return(median(sample(w,length(w),replace=T),na.rm=T))
}
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.