R/print.CIMTx_ATT_sa.R

In CIMTx: Causal Inference for Multiple Treatments with a Binary Outcome

#' Print the ATT results for from sensitivity analysis
#'
#' The \code{\link{print}} method for class "CIMTx_ATT_sa"
#'
#' @param x a \code{CIMTx_ATT_sa} object obtained
#' from \code{\link{sa}} function
#' @param ... further arguments passed to or from other methods.
#'
#' @return The output from \code{\link{print}}
#' @export
#'
#' @examples
#' result <- list(estimand = "ATT")
#' class(result) <- "CIMTx_ATT_sa"
#' print(result)
print.CIMTx_ATT_sa <- function(x, ...) {
  cat(
    "This is sa results using CIMTx pakcage",
    "For effect estimates, please use summary function."
  )
}