# \donttest{
#---- load data
data(dataLong)
#---- Fit quantile regression joint model for the median
qrjm_50 <- qrjm(formFixed = y ~ visit,
formRandom = ~ visit,
formGroup = ~ ID,
formSurv = survival::Surv(time, event) ~ X1 + X2,
survMod = "weibull",
param = "value",
timeVar= "visit",
data = dataLong,
save_va = TRUE,
parallel = FALSE,
tau = 0.5)
deviance(qrjm_50, M=200)
# }
Run the code above in your browser using DataLab