"बेसहाज़" फ़ंक्शन का उपयोग करके आर में बेसलाइन खतरा फ़ंक्शन का अनुमान लगाया जा सकता है। "सहायता" फ़ाइल बताती है कि यह "अनुमानित अस्तित्व" फ़ंक्शन है जो कि स्पष्ट रूप से नहीं है। यदि कोई कोड का निरीक्षण करता है, तो यह स्पष्ट रूप से एक survfit
वस्तु से संचयी खतरे का कार्य है । आगे की चुस्ती के लिए, डिफ़ॉल्ट सेटिंग वह है centered=TRUE
जो क) आधारभूत खतरे का कार्य नहीं है (जैसा कि नाम से पता चलेगा), और ख) भविष्यवाणियों को किसी भी व्यावहारिक अर्थ में वैधता के रूप में खारिज कर दिया गया है।
और आपके पहले बिंदु पर: हाँ यह फ़ंक्शन चरण फ़ंक्शन का उपयोग करता है। आप उस आउटपुट को स्मूथिंग का उपयोग करके एक खतरनाक फ़ंक्शन में बदल सकते हैं। इसका सब से बुरा हिस्सा, उस भविष्यवाणी के लिए अनिश्चितता का अंतराल क्या है? यदि आप इसे प्राप्त कर सकते हैं तो आपको फील्ड्स पदक मिल सकता है। मुझे नहीं लगता कि हम यह भी जानते हैं कि बूटस्ट्रैपिंग काम करती है या नहीं।
उदहारण के लिए:
set.seed(1234)
x <- rweibull(1000, 2, 3)
coxfit <- coxph(Surv(x) ~ 1)
bhest <- basehaz(coxfit)
haz <- exp(diff(bhest[, 1])*diff(bhest[, 2]))
time <- (bhest[-1,2] + bhest[-1000, 2])/2
b <- 2^-3
curve(3*b*x, from=0, to=max(x), xlab='Survival time', ylab='Weibull hazard')
points(t <- bhest[-1,2], h <- diff(bhest[, 1])/diff(bhest[, 2]), col='grey')
smooth <- loess.smooth(t, h)
lines(smooth$x, smooth$y, col='red')
legend('topright', lty=c(1,1,0), col=c('black', 'red', 'grey'), pch=c(NA,NA,1), c('Actual hazard fun', 'Smoothed hazard fun', 'Stepped discrete-time hazards'), bg='white')