Nothing
qsev <-
function(p)
{
p=ifelse(p>=.99999999999999,.99999999999999,p)
p=ifelse(p<=1-.99999999999999,1-.99999999999999,p)
log(-log(1-p))
}
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.