Nothing
#' 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.