### 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'))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.