R/coef.summary.jointModel.R

coef.summary.jointModel <-
function (object, ...) {
    if (!inherits(object, "summary.jointModel"))
        stop("Use only with 'summary.jointModel' objects.\n")
    coefsY <- object$'CoefTable-Long'
    coefsT <- object$'CoefTable-Event'
    list("Longitudinal" = coefsY, "Event" = coefsT)
}
drizopoulos/JM documentation built on May 15, 2019, 2:12 p.m.