당신이 죽어가는 비율을 결합하면 누적 위험이 없습니다. 연속 시간의 위험률은 매우 짧은 간격 동안 이벤트가 발생할 수있는 조건부 확률입니다.
h(t)=limΔt→0P(t<T≤t+Δt|T>t)Δt
누적 위험은 연령 / 시간에 따라 (즉시) 위험률을 통합합니다. 그것은 확률을 합산하는 것과 같지만 가 매우 작기 때문에 이러한 확률도 적습니다 (예 : 사망 위험률은 약 30 세에서 약 0.004 일 수 있습니다). 위험률은 t 이전에 이벤트를 경험하지 않은 경우 조건부 이므로 모집단의 경우 1을 초과 할 수 있습니다.Δtt
불연속 시간 공식이지만 인간의 사망률 생명 테이블을 찾아 를 축적하려고합니다 .mx
R을 사용하는 경우, 1 년마다 각 사망 간격에서 이러한 기능을 근사하는 간단한 예가 있습니다.
dx <- c(3184L, 268L, 145L, 81L, 64L, 81L, 101L, 50L, 72L, 76L, 50L,
62L, 65L, 95L, 86L, 120L, 86L, 110L, 144L, 147L, 206L, 244L,
175L, 227L, 182L, 227L, 205L, 196L, 202L, 154L, 218L, 279L, 193L,
223L, 227L, 300L, 226L, 256L, 259L, 282L, 303L, 373L, 412L, 297L,
436L, 402L, 356L, 485L, 495L, 597L, 645L, 535L, 646L, 851L, 689L,
823L, 927L, 878L, 1036L, 1070L, 971L, 1225L, 1298L, 1539L, 1544L,
1673L, 1700L, 1909L, 2253L, 2388L, 2578L, 2353L, 2824L, 2909L,
2994L, 2970L, 2929L, 3401L, 3267L, 3411L, 3532L, 3090L, 3163L,
3060L, 2870L, 2650L, 2405L, 2143L, 1872L, 1601L, 1340L, 1095L,
872L, 677L, 512L, 376L, 268L, 186L, 125L, 81L, 51L, 31L, 18L,
11L, 6L, 3L, 2L)
x <- 0:(length(dx)-1) # age vector
plot((dx/sum(dx))/(1-cumsum(dx/sum(dx))), t="l", xlab="age", ylab="h(t)",
main="h(t)", log="y")
plot(cumsum((dx/sum(dx))/(1-cumsum(dx/sum(dx)))), t="l", xlab="age", ylab="H(t)",
main="H(t)")
도움이 되었기를 바랍니다.