Nothing
summary.OMD <-
function (object, digits = 3, verbose = FALSE, ...)
{
if (verbose) {
print(unclass(object))
return(invisible(NULL))
}
nFac <- ncol(object$X) - object$blk
cat("\n Base:\n")
calc <- c(object$N0, object$COLS, object$BL, object$CUT,
object$NM)
names(calc) <- c("nRuns", "nFac", "nBlk", "maxInt", "nMod")
print(calc)
cat("\n OMD:\n")
out <- c(object$N, object$NRUNS, object$ITMAX, object$NSTART)
names(out) <- c("nCand", "nRuns", "maxIter", "nStart")
print(out)
calc <- c(calc, out)
out.list <- list(calc = calc)
if (any(object$D <= 0))
ind <- min(which(object$D <= 0))
else ind <- object$NTOP
toprun <- data.frame(OMD = object$TOPD, object$TOPDES)
ind <- min(10, ind)
cat("\n Top", ind, "runs:\n")
print(dd <- round(toprun[seq(ind), ], digits))
out.list[["OMD"]] <- dd
invisible(out.list)
}
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.