R/print.summaryTauFit.R

In tauProcess: Tau Measure with Right-Censored Data

#' Print Method for "summaryTauFit" Objects
#'
#' @description user-friendly format to present the inference results obtained from `summary.tauFit`.
#' @param x an object of class "summaryTauFit"
#' @param ... additional arguments passed to underlying `printCoefmat` method.
#'
#' @return None
#' @export
#' @examples fit <- tau.fit(data = pbc)
#' summary(fit)
print.summaryTauFit <- function(x, ...) {
  cat(" N0=", x$N0, " N1=", x$N1, " The truncation time is specified as", x$t, "\n")
  cat("\n")
  cat("Random grouping design:\n")
  stats::printCoefmat(x$tau.fit.r, digits = 3, signif.legend = FALSE)
  cat("\n")
  cat("Fixed grouping design:\n")
  stats::printCoefmat(x$tau.fit.f, digits = 3)
  cat("\n")
  print(x$conf.int, digits = 3)
}