Nothing
.summary_opticut <-
function(x, cut=2, sort=TRUE, multi=FALSE)
{
sort <- if (is.logical(sort))
sort[1L] else 1 %in% sort
if (multi) {
cn <- c("split", "assoc", "I", "logLR")
} else {
cn <- c("split", "assoc", "I", "mu0", "mu1", "logLR", "w")
}
xx <- x$summary[, cn]
if (sort) {
xx <- xx[attr(x$bestpart, "row.order"),]
}
xx[xx$logLR >= cut, , drop=FALSE]
}
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.