Function to extract the predicted probabilities at the individual event times that have been used for fitting a prodlim object.

predictSurvIndividual(object, lag = 1)

Arguments

object

A fitted object of class "prodlim".

lag

Integer. `0' means predictions at the individual times, 1 means just before the individual times, etc.

Value

A vector of survival probabilities.

Author

Thomas A. Gerds tag@biostat.ku.dk

Examples


 SurvFrame <- data.frame(time=1:10,status=rbinom(10,1,.5))
 x <- prodlim(formula=Hist(time=time,status!=0)~1,data=SurvFrame)
 predictSurvIndividual(x,lag=1)
#>  [1] 1.00000 1.00000 1.00000 0.87500 0.75000 0.62500 0.62500 0.46875 0.31250
#> [10] 0.15625