The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

Parkinson’s Data: Joint Model for Informative Dropout

Patients with faster UPDRS progression drop out earlier, so a naive longitudinal model is biased. pmrm_joint() links the two processes through a shared association structure.

library(progme)
data(parkinsons_simulated)

fit <- tryCatch(
  pmrm_joint(updrs ~ time * trt,
             Surv(time_to_dropout, dropout) ~ trt,
             data = parkinsons_simulated,
             association = "current_value",
             surv_model = "weibull"),
  error = function(e) e
)
if (!inherits(fit, "error")) {
  s <- summary(fit)
  str(s$association_coefficients)
} else {
  message("Demo fit skipped: ", conditionMessage(fit))
}
#>  Named num 0.0352
#>  - attr(*, "names")= chr ".y_current"

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.