Survival data for Beer et al. (2002) lung adenocarcinoma study

Overall survival time for 86 lung adenocarcinoma patients, with 62 of the 86 events being censored.

data(beer.survival)

Format

A data frame with 86 observations on the following 2 variables.

status

a numeric vector

os

a numeric vector

Source

Beer DG, Kardia SL, Huang C, Giordano TJ, Levin AM, Misek DE, Lin L, Chen G, Gharib TG, Thomas DG, Lizyness ML, Kuick R, Hayasaka S, Taylor JM, Iannettoni MD, Orringer MB, Hanash S: Gene-expression pr ofiles predict survival of patients with lung adenocarcinoma. Nat Med 2002, 8:816-824.

Examples

data(beer.survival)
library(survival)
surv.obj <- with(beer.survival, Surv(os, status))
surv.obj.rev <- with(beer.survival, Surv(os, 1-status))
survfit(surv.obj.rev~1)  #reverse KM estimate of follow-up time (months)
#> Call: survfit(formula = surv.obj.rev ~ 1)
#> 
#>       n  events  median 0.95LCL 0.95UCL 
#>    86.0    62.0    40.0    34.1    60.5 
(my.survfit <- survfit(surv.obj~1))  ##KM estimate of survival
#> Call: survfit(formula = surv.obj ~ 1)
#> 
#>       n  events  median 0.95LCL 0.95UCL 
#>    86.0    24.0      NA    79.5      NA 
plot(my.survfit, xlab="Time (months)",
     ylab="KM estimate of overall survival")
legend("bottomright", lty=c(1, 2), pch=-1,
       legend=c("KM estimate", "95 percent confidence interval"))