R/print.svyCausal.R

In svyCausalGLM: Survey-Weighted Modeling Utilities

#' Print method for svyCausal objects
#' @param x An object of class \code{svyCausal}.
#' @param ... Additional arguments passed to \code{print}.
#' @return The object \code{x}, invisibly.
#' @method print svyCausal
#'@exportS3Method
# Add this small helper function OUTSIDE your main function
# This tells R: "If someone looks at this object, only show the OR Table"
print.svyCausal <- function(x, ...) {
  cat("\n--- svyCausalGLM Results ---\n")
  print(x$OR_table)
}