88
f <- cph(Srv(ftime, death) ~ rcs(age)+sex, surv=TRUE, time.inc=60)
88
f <- cph(Surv(ftime, death) ~ rcs(age)+sex, surv=TRUE, time.inc=60)
89
89
w <- latex(f) #Interprets fitted model and makes table of S0(t)
90
90
#for t=0,60,120,180,\dots Creates file f.tex
91
91
w #displays image, if viewer installed