# NOT RUN {
# }
# NOT RUN {
###--- Joint surrogate model ---###
###---evaluation of surrogate endpoints---###
data(dataOvarian)
joint.surro.ovar <- jointSurroPenal(data = dataOvarian, n.knots = 8,
init.kappa = c(2000,1000), indicator.alpha = 0,
nb.mc = 200, scale = 1/365)
# Baseline Hazards fonctions for both the surrogate endpoint
# and the true endpoint
plot(joint.surro.ovar,endpoint = 2,type.plot = "Haz", conf.bands = T)
# Baseline survival fonctions for both the surrogate endpoint
# and the true endpoint
plot(joint.surro.ovar,endpoint = 2,type.plot = "Su", conf.bands = T)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab