Nothing
print.intReg <- function( x, ... ) {
cat("Interval regression\n")
cat(maximType(x), ", ", nIter(x), " iterations\n", sep="")
cat("Return code ", returnCode(x), ": ", returnMessage(x), "\n", sep="")
if(!is.null(x$estimate)) {
cat("Log-Likelihood:", x$maximum )
cat( " (", sum( activePar( x ) ), " free parameter(s))\n", sep = "" )
cat("Estimate(s):\n")
print(coef(x))
}
}
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.