We are hiring ! See our job offers.
https://github.com/cran/emplik
Raw File
Tip revision: e2f16b0adc0f6df124c7ee126345f66d8d2c7961 authored by Mai Zhou on 09 October 2011, 00:00:00 UTC
version 0.9-7
Tip revision: e2f16b0
MMRtime.R
MMRtime <- function(x, d, age) {
#### estimate Mean/Median Residual lifetime over age. 
temp <- WKM( x=x , d=d )
tivec <- temp$times
pivec <- temp$jump

if( age >= tivec[length(tivec)] ) stop("age too large")
if( age < tivec[1] ) warning("age smaller than first event time")

pivec[ tivec < age ] <- 0
Sage <- sum( pivec )

fenzi <- sum( (tivec - age)*pivec )
MRtime <- fenzi/Sage

Ptheta <- Sage/2
Cprob <- cumsum(pivec)
posi <- sum(Cprob < Ptheta)
theta <- tivec[posi+1]

list(MeanResidual = MRtime, MedianResidual = theta - age)
}
back to top