# 'kidney' dataset of package 'survival'
require(survival)
require(multcomp)
model <- coxph(Surv(time,status)~age*disease+factor(sex),data=kidney)
# Default: all pairwise comparisons
fc.multcomp(model,"disease")
fc.multcomp(model,"age:disease")
# Dunnett contrasts
n <- n <- 1:nlevels(kidney$disease)
names(n) <- levels(kidney$disease)
mat <- contrMat(n)
fc.multcomp(model,"disease",mat)
Run the code above in your browser using DataLab