Nothing
`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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.