Nothing
#' @rdname diagnosis
#' @export
print.diagnosis <- function(x, digits = 3, ...){
cat("Reference standard:",x$reference.name,"\n")
cat("Index test :",x$index.name,"\n")
cat("---------------------------------------------------------------\n")
print(x$tabmarg)
cat("\n")
cat("The test has the following parameters [",x$Conf.limit * 100,"% confidence interval]\n", sep = "")
cat("---------------------------------------------------------------\n")
print(x$results, digits = digits, ...)
cat("---------------------------------------------------------------\n")
}
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.