R/print.summary.roc.R

Defines functions `print.summary.roc`

`print.summary.roc` <- function(x, digits = 3,
                              print.gap = 2, ...) {
    cat("\n")
    writeLines(strwrap("ROC curves of dissimilarities:"))
    cat("\n")
    class(x) <- "data.frame"
    x$`p-value` <- format.pval(x$`p-value`)
    print(x, digits = digits, print.gap = print.gap, ...)
    invisible(x)
}
gavinsimpson/analogue documentation built on June 17, 2021, 2:37 a.m.