#' @export
print.summary.dht_bootstrap <- function(x, ...){
object <- x
cat("Bootstrap results\n\n")
cat("Boostraps :", object$nboot, "\n")
cat("Successes :", object$nbootsuccess, "\n")
cat("Failures :", object$nbootfailures, "\n")
cat("\n")
object$tab <- round(object$tab, 2)
print(object$tab)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.