As example used data from library survival
help page. Using function print()
on survfit
object prints part of the all summary.survfit()
object.
library(survival)
print(survfit( Surv(futime, fustat)~rx, data=ovarian))
Call: survfit(formula = Surv(futime, fustat) ~ rx, data = ovarian)
records n.max n.start events median 0.95LCL 0.95UCL
rx=1 13 13 13 7 638 268 NA
rx=2 13 13 13 5 NA 475 NA
If we save the summary()
object and look at the structure of it, there is an element table
.
gg<-summary(survfit( Surv(futime, fustat)~rx, data=ovarian))
str(gg)
List of 15
$ n : int [1:2] 13 13
$ time : num [1:12] 59 115 156 268 329 431 638 353 365 464 ...
$ n.risk : num [1:12] 13 12 11 10 9 8 5 13 12 9 ...
$ n.event : num [1:12] 1 1 1 1 1 1 1 1 1 1 ...
$ n.censor : num [1:12] 0 0 0 0 0 0 0 0 0 0 ...
$ surv : num [1:12] 0.923 0.846 0.769 0.692 0.615 ...
$ type : chr "right"
$ strata : Factor w/ 2 levels "rx=1","rx=2": 1 1 1 1 1 1 1 2 2 2 ...
$ std.err : num [1:12] 0.0739 0.1001 0.1169 0.128 0.1349 ...
$ upper : num [1:12] 1 1 1 0.995 0.946 ...
$ lower : num [1:12] 0.789 0.671 0.571 0.482 0.4 ...
$ conf.type: chr "log"
$ conf.int : num 0.95
$ call : language survfit(formula = Surv(futime, fustat) ~ rx, data = ovarian)
$ table : num [1:2, 1:7] 13 13 13 13 13 13 7 5 638 NA ...
..- attr(*, "dimnames")=List of 2
.. ..$ : chr [1:2] "rx=1" "rx=2"
.. ..$ : chr [1:7] "records" "n.max" "n.start" "events" ...
- attr(*, "class")= chr "summary.survfit"
Element table contains the same information you get with print()
. So event
values can be accessed just by selecting column you are interested in.
gg$table
records n.max n.start events median 0.95LCL 0.95UCL
rx=1 13 13 13 7 638 268 NA
rx=2 13 13 13 5 NA 475 NA
gg$table[,4]
rx=1 rx=2
7 5