Nothing
discovery.linear <-
function(seq, saturate=60, bias = 0.01){
corr <- saturate/(0.99-bias)
seq[seq<1] <- 1
seq <- seq/corr+bias
seq[seq>0.99] <- 0.99
seq[seq<0.01] <- 0.01
return (seq)
}
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.