`Cllr` <-
function(x, opt=F) {
if (opt) { # do we want optimum?
if (is.null(x$opt.llr)) x <- opt.llr(x, F) # did we have optimum?
x$score <- x$opt.llr
}
if (is.null(x$weight)) x$weight <- 1 # did we have weights?
c.miss <- 1/log(2) * mean(log(1+exp(-x$score[x$target]))*x$weight[x$target])
c.fa <- 1/log(2) * mean(log(1+exp(x$score[!x$target]))*x$weight[!x$target])
(c.miss+c.fa)/2
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.