Chức năng trong gói sinh tồn R để có được tỷ lệ rủi ro cơ bản là basehaz
.
eβ
Một ví dụ đơn giản có thể giúp:
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")
điểm kinh nghiệm( - 0,1929 ) = 0,8245summary(reg_fit)
18 %