Nothing
print.uncertaintyBudget <-
function(x, ...) {
dat <- data.frame(quantity = x$name, mean = x$mean, u = x$u,
distribution = x$distribution, dof = x$dof)
cat("Uncertainty budget:\n")
print(dat)
cat("Correlation matrix:\n")
print(x$cor)
}
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.