Nothing
print.uncertainty <-
function(x, ...)
{
inherits(x, "uncertainty_opti")
cls <- "opticut"
inherits(x, "uncertainty_multi")
cls <- "multicut"
cat("Multivariate ", cls, " uncertainty results",
", type = ", x$type, ", B = ", x$B, "\n\n", sep="")
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.