R/auprc.R

In EGAD: Extending guilt by association by degree

#' Area under the precision recall curve
#'
#' The function calculates the area under the precision-recall curve 
#' 
#' @param scores numeric array
#' @param labels binary array
#'
#' @return auprc Numeric value 
#' 
#' @keywords precision-recall  
#' area
#' metric
#'
#' @examples
#' labels <- c(rep(0,10))
#' labels[c(1,3,5)] <- 1 
#' scores <- 10:1
#' auprc <- auprc(scores, labels)
#'
#'
#' @export
#'
auprc <- function(scores, labels) {
    pr <- get_prc(scores, labels)
    auprc <- get_auc(pr[, 1], pr[, 2])
    return(auprc)
}