R/internals_update.trainOcc.R

Defines functions .calc_performanceAP

### first aggregate the hold-out predictions and calculate the performance 
.calc_performanceAP <- function(mm, object, colsParam, 
                                puSummaryFunction) { 
  dt <- holdOutPredictions( object, 
                            modParam=object$results[mm,colsParam, drop=FALSE], 
                            aggregate=TRUE)
  puSummaryFunction(dataForSummaryFunction(dt), lev=c('pos', 'un'))
}
benmack/oneClass documentation built on Dec. 15, 2020, 7:38 p.m.