swh:1:snp:cf20732a2a91717cec7759cd75c5d1a72600b018
Tip revision: 2565fc870cd7f0a64d857ff89e682dc9344dc7c1 authored by Dominique Makowski on 12 February 2020, 04:10:16 UTC
version 0.5.2
version 0.5.2
Tip revision: 2565fc8
print.describe_posterior.R
#' @importFrom insight format_table
#' @export
print.describe_posterior <- function(x, digits = 3, ...) {
if ("data_plot" %in% class(x)) {
cat(insight::format_table(as.data.frame(x), digits = digits))
} else {
insight::print_color("# Description of Posterior Distributions\n\n", "blue")
if (!is.null(attributes(x)$ci_method) && tolower(attributes(x)$ci_method) == "si") {
cn <- gsub("^CI", "SI", colnames(x))
colnames(x) <- cn
}
print_data_frame(x, digits = digits)
}
}