SuperLearner для результата выживания в R

Question

Я недавно начал читать о SuperLearner , и я пытаюсь запустить SuperLearner для выживания в R. Я нашел пример кода в Targeted Learning книга Марка Дж. Ван дер Лаана и Шерри Роуз, которые требуют преобразования данных в длинный формат для запуска.

Функция, которая преобразует данные в длинный формат, больше не доступна. Вот код:

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 . Есть ли другая функция, которая преобразует данные в длинный формат? Если нет, то очень полезен пример того, как преобразовать данные в соответствующий длинный формат. Или образец R кода для запуска SuperLearner для результата выживания также будет полезен.

Answer 1

Я нашел ответ. Чтобы запустить SuperLearner для результата выживания, структуру данных необходимо преобразовать в формат процесса подсчета, то есть переменная time должна быть разделена таким образом, чтобы максимум 1 событие моглослучиться с заданным интервалом времени. Функция survsplit в пакете Survival делает это! Спасибо доктору Эрику Полли.