# import and attach both samples
data(dataFTR)
data(dataSTR)
# We reduce the dimension to save time for this example (CRAN policies)
# Compute the Cox model in the First Kidney Transplantations (FTR)
cox.FTR<-coxph(Surv(Tps.Evt, Evt)~ ageR2cl + sexeR, data=dataFTR[1:100,])
summary(cox.FTR)
# Compute the multiplicative relative model
# for Second Kidney Transplantations (STR)
# Choose iterations>>5 for real applications
mrs.STR <- survival.mr(times="Tps.Evt", failures="Evt",
cov.relative=c("ageR2cl", "Tattente2cl"), data=dataSTR[1:100,],
cox.reference=cox.FTR, cov.reference=c("ageR2cl", "sexeR"),
ini=c(0,0), iterations=5)
# The parameters estimations (mean of the values)
mrs.STR$estim.coef
# The 95 percent. confidence intervals
cbind(mrs.STR$lower95.coef, mrs.STR$upper95.coef)
Run the code above in your browser using DataLab