## function that tries to coerse its argument to class ROC
as.roc <- function(x) {
cl <- class(x)
if ("roc" %in% cl)
return(x)
else
return(roc(as.cst(x)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.