[Maturing] For each survfit() object summarized with tbl_survfit() this function will add the total number of events observed in a new column.

# S3 method for tbl_survfit
add_nevent(x, ...)

Arguments

x

object of class 'tbl_survfit'

...

Not used

Example Output

Example 1

See also

Examples

library(survival)
fit1 <- survfit(Surv(ttdeath, death) ~ 1, trial)
fit2 <- survfit(Surv(ttdeath, death) ~ trt, trial)

# Example 1 ----------------------------------
add_nevent.tbl_survfit_ex1 <-
  list(fit1, fit2) %>%
  tbl_survfit(times = c(12, 24)) %>%
  add_n() %>%
  add_nevent()