data(dataDIVAT2)
# The training of the Weibull model with the first 400 patients
model <- LIB_PHgompertz(times="times", failures="failures", data=dataDIVAT2[1:400,],
cov.quanti=c("age"), cov.quali=c("hla", "retransplant", "ecd"))
# The prognostic capacities from the same training sample
# (up to 4 years forseveral indicators)
summary(model, pro.time=4)
# The prognostic capacities from a validation of the next 150 patients
# (up to 4 years for several indicators)
summary(model, pro.time=4, newdata=dataDIVAT2[401:550,], times="times",
failures="failures")
Run the code above in your browser using DataLab