Nothing
win<-function(x,lambda=0.2){
n<-length(x)
y<-sort(x)
bot.obs<-floor(n*lambda)+1
top.obs<-n-bot.obs+1
z<-ifelse(x<=y[bot.obs],y[bot.obs],x)
z<-ifelse(x>=y[top.obs],y[top.obs],z)
z
}
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.