Функція пакету виживання R для отримання базової норми небезпеки є basehaz
.
Тоді вам потрібно помножити його на різні щоб отримати конкретну ступінь небезпеки з урахуванням знайдених коефіцієнтів.еβ
Простий приклад може допомогти:
library(survival) #survival analysis
library(eha) #used for data
data(oldmort) #create the data
# Create surv data set
mort <- Surv(time=oldmort$enter,time2=oldmort$exit,event=oldmort$event)
reg_fit <- coxph(formula=mort~oldmort$sex)
summary(reg_fit)
# Now get baseline curve
baseline <- basehaz(reg_fit)
# Draw baseline hazard (that's male)
plot(baseline$time, baseline$hazard, type='l',main="Hazard rates")
# Draw female hazard
lines(baseline$time, exp(-0.1929)*baseline$hazard, col="blue")
копіюванні і вставці з підсумкових результатів регресії Кокса, , маючи на увазі , що жінки в даних мають показники небезпеки нижче , ніж у чоловіків.досвід( - 0,1929 ) = 0,8245summary(reg_fit)
18 %