Displaying 1 result from an estimated 1 matches for "srv120".
2009 Apr 25
3
Nomogram with stratified cph in Design package
...o wrong, but I'm not sure where.
Non-Stratified Nomogram:
f<-cph(S~A+B+C+D+E+F+H,x=T,y=T,surv=T,time.inc=10*12,method="breslow")
srv=Survival(f)
srv120=function(lp) srv(10*12,lp)
quant=Quantile(f)
med=function(lp) quant(.5,lp)
at.surv=c(0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9)
at.med=c(120,80,60,40,30,20,15,10,8,6,4,2,0)
nomogram(f,lp=F, fun=list(srv120, med),funlabel=c("120-mo Survival","Median
Survival"),fun.at=list(at.surv, at.m...