##### https://github.com/cran/bayestestR

Tip revision:

**40f7c88ddf855896018cf20ec8a7ac5fbd0ea2fb**authored by**Dominique Makowski**on**27 January 2020, 05:30 UTC****version 0.5.1** Tip revision:

**40f7c88** print.bayesfactor_restricted.R

```
#' @export
print.bayesfactor_restricted <- function(x, digits = 2, log = FALSE, ...) {
BFE <- x
if (log) {
BFE$BF <- log(BFE$BF)
}
BFE$BF <- .format_big_small(BFE$BF, digits = digits)
colnames(BFE) <- c("Hypothesis", "P(Prior)", "P(Posterior)", "BF")
insight::print_color("# Bayes Factor (Order-Restriction)\n\n", "blue")
print.data.frame(BFE, digits = digits, row.names = FALSE)
cat("\n* Bayes factors for the restricted model vs. the un-restricted model.\n")
if (log) insight::print_color("\nBayes Factors are on the log-scale.\n", "red")
invisible(x)
}
```