# set.seed(123)
if (.Platform$OS.type != "windows" || .Platform$r_arch !="i386")
example_jm <-
stan_jm(formulaLong = logBili ~ year + (1 | id),
dataLong = pbcLong[1:101,],
formulaEvent = survival::Surv(futimeYears, death) ~ sex + trt,
dataEvent = pbcSurv[1:15,],
time_var = "year",
# this next line is only to keep the example small in size!
chains = 1, seed = 12345, iter = 100, refresh = 0)
Run the code above in your browser using DataLab