data(simsolvd)
obj <- anoint(Surv(ttodthorchfhosp, censor==0)~(nyha+cardratio+current)*trt,data=simsolvd,
family="coxph")
forest(obj)
grid.newpage()
forest(obj,x.axis=seq(0.7,1.5,by=.2))
Run the code above in your browser using DataLab