R/llr.plot.R

In davidavdav/ROC: Compute structures to compute ROC and DET plots and metrics for 2-class classifiers.

llr.plot <- function(x, ...) {
    x <- as.roc(x)
    ptype <- ifelse(nrow(x) > 15, "l", "b")
    with(x, plot(thres, opt.llr, xlab="score", ylab="LLR", main="Optimal score to LLR mapping",
                 type=ptype, ...))
}