Nothing
summary.tpopt <- function(object, ...)
{
res <- object
cat("\n###############################################################################\n")
cat("Call:\n\n")
print(res$call)
cat("\n###############################################################################\n")
cat("Models:\n")
print(res$eta)
cat("Fixed parameters:\n")
print(res$theta.fix)
cat("\n###############################################################################\n")
cat("Design:\n")
print(rbind(x = res$x, w = res$w))
cat("\n###############################################################################\n")
cat("Efficiency by iteration:\n")
print(res$efficiency)
cat("\n###############################################################################\n")
cat("Time:\n")
print(res$time)
cat("\n###############################################################################\n")
}
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.