# NOT RUN {
jointdat<-tojointdata(longitudinal = simdat2$longitudinal,
survival = simdat2$survival, id = "id",
longoutcome = "Y",
timevarying = c("time","ltime"),
survtime = "survtime", cens = "cens",
time = "time")
onestagefit4 <- jointmeta1(data = jointdat,
long.formula = Y ~ 1 + time + treat + study,
long.rand.ind = c("int", "time"),
long.rand.stud = c("treat"),
sharingstrct = "randprop",
surv.formula = Surv(survtime, cens) ~ treat,
study.name = "study", strat = TRUE)
onestagefit4SE <- jointmetaSE(fitted = onestagefit4, n.boot = 200)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab