R/cal_auc.R

In elise-is/multiROC: Calculating and Visualizing ROC and PR Curves Across Multi-Class Classifications

Defines functions cal_auc

Documented in cal_auc

#' @export
#' @importFrom zoo "rollmean"

cal_auc <- function(X, Y) {
  id <- order(X)
  sum(diff(X[id])*rollmean(Y[id],2))
}