R的中位生存期

Question

我无法计算R中的生命表，特别是中位数生存期：

library(survival)
kaplan17 <- read.csv(kaplan1, sep=";", dec=",")
head(kaplan17)
#       group time event
# 1     2     1     0
# 2     1     1     0
# 3     1     1     0
# 4     2     1     0
# 5     2     1     0
# 6     1     1     0

(my.surv <- Surv(kaplan17$time))
 # [1] 1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1 
 # [48] 1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1

如何正确计算每组的中位生存期？

我的数据集可以下载here

Answer 1

?Surv
?survfit
survfit( Surv(time, event) ~ 1, data=kaplan17)

然后

survfit( Surv(time, event) ~ group, data=kaplan17)