R期生存结局的SuperLearner研究

Question

我最近开始阅读关于SuperLearner的文章，我试图在R中运行SuperLearner，以获得生存结果。我在马克·J·范德兰( Mark J. van der Laan )和雪莉·罗斯( Sherri Rose )的书中找到了一个示例代码，它要求将数据转换为长格式才能运行。

将数据转换为长格式的函数不再可用。以下是代码：

library(survival)
data(lung)
subLung <- subset(lung, select = c(time, status, age,ph.ecog, ph.karno, pat.karno))
subLung$female <- (lung$sex - 1)
subLung <- subLung[complete.cases(subLung), ]

## Expand subLung to Long Format
longData <- SuperLearner:::createDiscrete(time =subLung$time, 
event = (subLung$status == 2),dataX = subset(subLung, 
select =-c(time, status)), n.delta = 30)

createDiscrete函数在SuperLearner包中不再可用。还有其他函数可以将数据转换成长格式吗？如果不是，那么一个如何将数据转换成适当的长格式的玩具示例将非常有用。或者，运行SuperLearner以获得生存结果的示例R代码也会有帮助。

Answer 1

我找到了答案。要运行SuperLearner以获取生存结果，必须将数据结构转换为计数过程格式，这意味着，时间变量应该被拆分，以便在给定时间间隔时最多可以发生1次事件。survsplit函数在生存包中就是这么做的！多亏了埃里克·波利医生。