R/print.summary.fcrr.R

In fastcmprsk: Fine-Gray Regression via Forward-Backward Scan

#' Prints summary of a fcrr x
#'
#' @description  Prints summary statistics of a fcrr x
#'
#' @param x output from \code{fastCrr()}.
#' @param digits digits for rounding.
#' @param ... additional arguments to \code{print()}.
#' @details Prints the convergence status,
#' log-pseudo likelihood, the estimated coefficients, the estimated standard errors, and the two-sided p-values for the test of the individual coefficients equal to 0.
#' @return Prints the convergence status,
#' log-pseudo likelihood, the estimated coefficients, the estimated standard errors, and the two-sided p-values for the test of the individual coefficients equal to 0.
#' @export

print.summary.fcrr <- function (x, digits = max(options()$digits - 4, 3), ...)
{
  cat("Fine-Gray Regression via fastcmprsk package. \n\n")
  if(x$converged)
  { cat("fastCrr converged in", x$iterations, "iterations.\n \n")
  } else {
    cat("fastCrr did not converge. Estimates may be unstable.\n \n")
  }

  if(!is.null(x$call))
  { cat("Call:\n")
    dput(x$call)
    cat("\n")
  }

  savedig <- options(digits = digits)
  on.exit(options(savedig))
  print(x$coef)
  cat("\n")
  if(!is.null(x$conf.int))
    print(x$conf.int)

  cat("Pseudo Log-likelihood =", x$logLik, "\n")
  cat("Null Pseudo Log-likelihood =", x$logLik.null, "\n")
  cat("Pseudo likelihood ratio test =", x$lrt, "on", x$ncov, "df. \n")
  invisible()
}