R/print.hetero.test.R

In joolee0918/AIPWsubtype: An augmented inverse weighted semiparametric cause-specific competing risks model with partially missing cause of failure

#' Print heterogeneity test for the subtype-specific effet

#' @method print hetero.test
#' @keywords internal

#' @export
print.hetero.test <- function(object){

  pdig <- max(1, getOption("digits")-4)

  cat("\n")
  cat("Heterogeneity Tests (Likelihood ratio test) ")
  cat("\n")
  cat("--------------------------------------------")
  cat("\n")

  print(object[[1]], row.names = F)
  cat("\n")
  invisible()
}