.summary_uncertainty <- function(x, sort=TRUE)
{
uct <- x$uctab
if (sort)
uct <- uct[order(uct$split, -uct$R, -uct$I),]
uct
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.