ฟังก์ชั่นในแพคเกจ R basehaz
อยู่รอดที่จะได้รับอัตราอันตรายพื้นฐานคือ
จากนั้นคุณต้องเพิ่มทวีคูณสำหรับเพื่อรับอัตราอันตรายเฉพาะตามค่าสัมประสิทธิ์ที่คุณพบeβ
ตัวอย่างง่ายๆอาจช่วย:
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")
จะถูกคัดลอกและวางจากผลสรุปของการถดถอย Cox, หมายความว่าหญิงในข้อมูลที่มีอัตราการเกิดอันตรายต่ำกว่าเพศชายexp(−0.1929)=0.8245summary(reg_fit)
18%