R/print.rbounds.R

In rbounds: Perform Rosenbaum Bounds Sensitivity Tests for Matched and Unmatched Data

Defines functions summary.rbounds print.rbounds

Documented in print.rbounds summary.rbounds

print.rbounds <- function(x, ...) {
  cat("\n", x$msg, "\n")
  cat("Unconfounded estimate .... ", round(x[["pval"]], 4), "\n\n")
  print(x$bounds, row.names = FALSE)
  cat("\n", x$note, "\n")
}

summary.rbounds <- function(object, ...) {
  print.rbounds(object, ...)
}

Try the rbounds package in your browser