Nothing
print.summary.uncertainty <-
function(x, sort, digits, ...)
{
if (missing(digits))
digits <- max(3L, getOption("digits") - 3L)
if (missing(sort))
sort <- getOption("ocoptions")$sort
inherits(x, "uncertainty_opti")
cls <- "opticut"
inherits(x, "uncertainty_multi")
cls <- "multicut"
cat("Multivariate ", cls, " uncertainty results",
"\ntype = ", x$type, ", B = ", x$B,
", level = ", format(round(x$level, 2), nsmall=2),
"\n\n", sep="")
print(format.data.frame(.summary_uncertainty(x, sort=sort),
digits=digits), ...)
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.