Я использую функцию Survest в пакете RMS для расчета вероятностей выживания. Я хочу иметь возможность взять подмножество моих данных и передать их через опрос. Я разработал цикл for, который делает это. Это запускает и выводит вероятности выживания для каждого набора предикторов.
for (i in 1:nrow(df)){
row <- df[i,]
print(row)
surv=survest(fit, row, times=365)
print(surv)
}
Мой первый вопрос: есть ли способ использовать Survest для прогнозирования медианы выживаемости вместо того, чтобы указывать конкретные временные рамки, или, альтернативно, есть лучшая функция для использования?
Во-вторых, я хочу иметь возможность прогнозировать выживаемость, используя только четыре из пяти предикторов моей модели Кокса, например (как показано ниже), хотя я понимаю, что это будет менее точным, возможно ли это сделать с помощью опроса?
survest(fit, expand.grid(Years.to.birth =NA, Tumor.stage=1, Date=2000,
Somatic.mutations=2, ttype="brca"), times=300)