#' @keywords internal
#' @export
print.dynLong <- function(x, digits = max(4, getOption("digits") - 4), ...) {
if (!inherits(x, "dynLong")) {
stop("Use only with 'dynLong' objects.\n")
}
out <- lapply(x$pred, round, digits = digits)
print(out)
if (x$type == "simulated") {
cat(paste0("\nM-H acceptance rate: ", round(100 * x$accept, 1), "%"))
}
cat("\n")
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.