# \donttest{
# Univariate fit on PBC data -----------------------------------------
data(PBC)
# Subset data and remove NAs
PBC <- subset(PBC, select = c('id', 'survtime', 'status', 'drug', 'time',
'albumin'))
PBC <- na.omit(PBC)
# Specify univariate fit
long.formulas <- list(
albumin ~ time*drug + (1 + time|id)
)
surv.formula <- Surv(survtime, status) ~ drug
fit <- joint(long.formulas, surv.formula, PBC, family = list('gaussian'))
b <- ranef(fit, FALSE)
# }
Run the code above in your browser using DataLab