Nothing
get.set <- function( k , data){
data <- data[,c('left','right')]
df1<-data.frame( data , r = runif(nrow(data)))
w <- with( df1 , left + (right - left) * r )
if1<-ifelse(w == Inf , df1$left , w)
return(if1)
}
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.