R/ranef.JMbayes.R

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

ranef.JMbayes <-
function (object, postVar = FALSE, ...) {
    if (!inherits(object, "JMbayes"))
        stop("Use only with 'JMbayes' objects.\n")
    postMeans <- object$postMeans$b
    if (postVar) {
        attr(postMeans, "postVar") <- object$postVarsRE
    }
    postMeans
}