R/auc.R

Defines functions auc

Documented in auc

auc <-
function(rocout){
    TPRthr <- rocout[2,]
    FPRthr <- rocout[1,]
    FPRdif <- FPRthr - c(0, FPRthr[-length(FPRthr)])
    TPRinterpolated <- (TPRthr + c(0, TPRthr[-length(TPRthr)]))/2
    AUC <- TPRinterpolated %*% FPRdif
    return(AUC)
}

Try the GRridge package in your browser

Any scripts or data that you put into this service are public.

GRridge documentation built on Nov. 8, 2020, 5:47 p.m.