##' @export roP <- function(aP,rth){ return(pbeta(q=sort(aP)[rth],shape1=rth,shape2=length(aP)-rth+1)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.