Nothing
print.BDtest <-
function(x, ...)
{
cat("Confidence intervals for binary diagnostic tests.\n")
cat(attr(x$INDAT, which="caption"), "\n")
print.data.frame(x$INDAT,...)
cat(attr(x$SESPDAT, which="caption"), "\n")
print.data.frame(x$SESPDAT,...)
cat(attr(x$PPVNPVDAT, which="caption"), "\n")
print.data.frame(x$PPVNPVDAT,...)
}
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.