R/vcov.fcrr.R

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

#' Extract variance-covariance matrix from an "fcrr" object.
#'
#' @description  Similar functional utility to \code{vcov} methods.
#'
#' @param object \code{fcrr} object.
#' @param ... Additional arguments. Not implemented.
#' @return Returns the estimated variance-covariance matrix (via bootstrap) from object \code{object}.
#' @export
#'
vcov.fcrr <- function(object, ...) {
  if(!object$isVariance) {
    stop("Variance must be calculated. Rerun fastCrr with 'variance = TRUE'.")
  } else {
    object$var
  }
}