Description Usage Format Source Examples
Overall survival time for 86 lung adenocarcinoma patients, with 62 of the 86 events being censored.
1 |
A data frame with 86 observations on the following 2 variables.
status
a numeric vector
os
a numeric vector
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 profiles predict survival of patients with lung adenocarcinoma. Nat Med 2002, 8:816-824.
1 2 3 4 5 6 7 8 9 10 | library(survHDExtra)
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)
(my.survfit <- survfit(surv.obj~1)) ##KM estimate of survival
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"))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.