actDCF <- function(x, plo=prior.log.odds(), norm=T) {
x <- as.cst(x)
mDCF <- bayes.error.rate(x$score[x$target], x$score[!x$target], plo)
if (norm) mDCF <- mDCF / pmin(sigmoid(plo), sigmoid(-plo))
mDCF
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.