R/coef.summary.JMbayes.R

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)
}
drizopoulos/JMbayes documentation built on Feb. 2, 2021, 12:34 a.m.