Nothing
fdr.r = function(r, hatpai, fdr){
res = sapply(hatpai, function(x){ifelse(x>r,1,0)})
res = sum(res*(1-hatpai)) / sum(res)
ifelse(!is.nan(res), return(res-fdr), return(1))
}
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.