[ top | up ]
Add lines to a survival plot
Usage
lines.survfit(x, type="s", mark=3, col=1, lty=1, lwd=1, mark.time=T, ...)
Arguments
x
|
a survival object, generated either from the survfit or survexp functions.
|
type
|
the line type, as described in lines . The default is a step function
for survfit objects, and a connected line for survexp objects.
|
mark,
|
vectors giving the mark symbol, color, line type and line width for the
added curves.
|
mark.time
|
controls the labeling of the curves. If False, no labeling is done. If
True, then curves are marked at each censoing time. If mark.time is a numeric
vector, then curves are marked at the specified time points.
|
Side Effects
one or more curves are added to the current plot.
NOTE
Does not yet handle confidence intervals.
See Also
plot.survfit
, survfit
, survexp
Examples
fit <- survfit(Surv(futime, fustat) ~ surgery, jasa)
ptime <- ifelse(jasa$fustat==0, jasa$futime, mdy.date(4,1,74)-jasa$accept.dt)
age <- jasa$accept.dt - jasa$birth.dt
efit <- survexp(ptime~ratetable(age=age, year=accept.dt, sex=1) + surgery,
data=jasa, ratetable=survexp.us, conditional=F,times=0:5*300)
plot(fit, col=1:2, lty=1)
lines(efit, col=1:2, lty=2, mark='E', mark.time=1000, cex=1.5)
# Note: the 2 expected curves are overlap