Description Usage Arguments Value Examples
View source: R/print.jointmeta1.R
A function to print a jointmeta1.object
.
1 2 |
x |
a jointmeta1.object, the result of fitting a jointmeta1 model |
... |
additional arguments; currently none are used. |
An object inheriting from class print.jointmeta1
with all
components included in x
(see jointmeta1.object
).
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | #change example data to jointdata object
jointdat2<-tojointdata(longitudinal = simdat2$longitudinal,
survival = simdat2$survival, id = 'id',longoutcome = 'Y',
timevarying = c('time','ltime'),
survtime = 'survtime', cens = 'cens',time = 'time')
#set variables to factors
jointdat2$baseline$study <- as.factor(jointdat2$baseline$study)
jointdat2$baseline$treat <- as.factor(jointdat2$baseline$treat)
#fit multi-study joint model
#note: for demonstration purposes only - max.it restricted to 5
#model would need more iterations to truely converge
onestagefit<-jointmeta1(data = jointdat2, 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, max.it=5)
#print the fitted multi-study joint model
print(onestagefit)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.