https://github.com/cran/bayestestR
Tip revision: 23ea3229abe72a5f23dcf3a4cfcd3478d744b536 authored by Dominique Makowski on 20 June 2019, 11:50:03 UTC
version 0.2.2
version 0.2.2
Tip revision: 23ea322
print.bayesfactor_inclusion.R
#' @export
print.bayesfactor_inclusion <- function(x, digits = 2, log = FALSE, ...) {
BFE <- x
priorOdds <- attr(BFE, "priorOdds")
if (log) {
BFE$BF <- log(BFE$BF)
}
xBF <- BFE$BF
BFE$BF <- as.character(round(xBF, digits = digits))
big_ind <- abs(xBF) >= 1000 | abs(xBF) < 1 / (10^digits)
big_ind <- sapply(big_ind, isTRUE)
if (isTRUE(any(big_ind))) {
BFE$BF[big_ind] <- formatC(xBF, format = "e", digits = digits)[big_ind]
}
if (log) {
colnames(BFE) <- c("Pr(prior)", "Pr(posterior)", "log(Inclusion BF)")
} else {
colnames(BFE) <- c("Pr(prior)", "Pr(posterior)", "Inclusion BF")
}
print.data.frame(BFE, digits = digits)
cat("---\n")
if (attr(BFE, "matched")) {
cat("Inclusion BFs compared among matched models only.\n")
} else {
cat("Inclusion BFs compared among all models.\n")
}
if (!is.null(priorOdds)) {
cat("Priors based on custom prior-odds.\n")
}
invisible(x)
}