Nothing
#[export]
auc <- function(group, preds) {
ri <- Rfast::Rank(preds)
n <- length(group)
n1 <- sum(group)
n0 <- n - n1
s1 <- Rfast::group(ri, group)[2]
(s1 - 0.5 * n1 * (n1 + 1))/n0/n1
}
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.