Підсумкова вправа: модель Cox
Щоб підсумувати курс, повернімося до набору даних про рак легенів, яким ми коротко користувалися в останніх 2 розділах. Нагадаємо: цей набір містить дані про виживаність пацієнтів із поширеним раком легенів із North Central Cancer Treatment Group. Подія зберігається у змінній 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")