R/coef.summary.JMbayes.R

In drizopoulos/JMbayes: Joint Modeling of Longitudinal and Time-to-Event Data under a Bayesian Approach

coef.summary.JMbayes <-
function (object, ...) {
    if (!inherits(object, "summary.JMbayes"))
        stop("Use only with 'summary.JMbayes' objects.\n")
    coefsY <- object$'CoefTable-Long'
    coefsT <- object$'CoefTable-Event'
    list("Longitudinal" = coefsY, "Event" = coefsT)
}