R/coef.CauseSpecificCox.R

In tagteam/riskRegression: Risk Regression Models and Prediction Scores for Survival Analysis with Competing Risks

#' Extract coefficients from a Cause-Specific Cox regression model
#' 
#' Extract coefficients from a Cause-Specific Cox regression model
#' @param object Object obtained with CSC
#' @param ... not used
#'
#' @method coef CauseSpecificCox
#' @export
coef.CauseSpecificCox <- function(object, ...){
  return(lapply(object$models,coef))
}