# NOT RUN {
# read in built-in dataset
data(AorticStenosisTrials)
# }
# NOT RUN {
# meta-analysis to obtain combined effect by multivariate model (method="mvma")
result <- metaRMSTD(AorticStenosisTrials, time_horizons=c(12,24,36), MA_method="mvma")
# generate figure:
obj <- RMSTcurves(AorticStenosisTrials, time_horizons=c(12,24,36), tmax=40, nboot=500)
RMSTplot(obj, xlim=c(0,40), ylim=c(-0.25,2.75), yby=0.5, ylab="RMSTD (mos)", xlab="Time (mos)")
# }
# NOT RUN {
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab