R/print.episensr.booted.R

In episensr: Basic Sensitivity Analysis of Epidemiological Results

#' Print bootstrapped confidence intervals
#'
#' Print bootstrap-ed confidence intervals for selection and misclassification bias functions.
#'
#' @param x An object of class 'episensr.booted'.
#' @param digits Minimal number of _significant_ digits, see 'print.default'.
#' @param ... Other unused arguments.
#'
#' @return Print the confidence interval of the adjusted measures of association.
#'
#' @export
print.episensr.booted <- function(x, digits = getOption("digits"), ...) {
    cli::cli_h1("{100*x$conf}% confidence interval of the bias adjusted measures:")
    cli::cli_par()
    cat("\n   RR:", x$ci[1, ],
        "\n   OR:", x$ci[2, ])
    cli::cli_end()
    cli::cli_rule()
    cli::cli_text("Based on {x$nrep} bootstrap replicates")
    invisible(NULL)
}