Nothing
uncertaintyBudget.default <-
function(x, y, ...) {
colnames(y) <- rownames(y) <- x$name
res <- list(name = x$name, mean = x$mean, u = x$u, dof = x$dof,
label = x$label, distribution = x$distribution, cor = y)
class(res) <- "uncertaintyBudget"
return(res)
}
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.