Nothing
medsems<- function(data){
x<-sort(data)
value<-round((length(x)+1)/2-qnorm(.995)*sqrt(length(x)/4))
value<-ifelse(value==0,1,value)
result<-sqrt(((x[length(x)-value+1]-x[value])/(2*qnorm(.995)))^2)
result
}
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.