Итоговое задание: модель Кокса
В завершение курса давайте вернёмся к набору данных по раку лёгких, который мы уже использовали в последних двух главах. Напомним: этот набор содержит информацию о выживаемости пациентов с запущенным раком лёгких из Северо-центральной онкологической группы. Событие хранится в переменной status, которая принимает значение 2, если пациент не выжил. Показатель функционального состояния (переменная performance) отражает способность пациента выполнять обычные повседневные действия (плохо=0, хорошо=100) и оценивается лечащим врачом. Нас интересует связь между конкретными значениями функционального состояния и временем выживания.
Это упражнение является частью курса
Анализ выживаемости в R
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
# Compute Cox model and survival curves
cxmod <- ___(___(___, ___) ~ ___, data = lung)
new_lung <- data.frame(performance = ___)
cxsf <- ___(cxmod, data = ___, newdata = ___, conf.type = "none")