R/print.mbias.R

In dhaine/episensr: Basic Sensitivity Analysis of Epidemiological Results

#' Print association corrected for M bias
#'
#' Print association corrected for M bias.
#'
#' @param x An object of class 'mbias'.
#' @param ... Other unused arguments.
#'
#' @return Print the observed and adjusted measures of association.
#'
#' @export
print.mbias <- function(x, ...) {
    cat("Correction for selection bias:",
        "\n----------------------------------------",
        "\nOR observed between the exposure and the outcome:",
        x$bias.parms[5],
        "\n             Maximum bias from conditioning on M:",
        x$mbias.parms[3],
        "\n                 OR corrected for selection bias:",
        x$adj.measures,
        "\n")
    invisible(NULL)
}