print.summary.cpf <- function(x, ...) {
if (!inherits(x, "summary.cpf"))
stop("'x' must be of class 'summary.cpf'")
cat("Call: "); dput(x$call); cat("\n")
for (i in seq_len(length(x$est))) {
cat("\t", names(x$est[i]), "\n")
ind <- floor(quantile(1:nrow(x$est[[i]]), prob = c(0, 0.25, 0.5, 0.75, 1)))
print(x$est[[i]][ind, ], rownames = FALSE)
cat("\n")
}
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.