Estimate Expected Survival with Incomplete Data 

The following right-censored data produces a Kaplan-Meier estimate that never reaches zero because the last observation is censored. In order to estimate the expected lifetime, you must choose a model for the remaining probability in the tail. This can easily be accomplished with SurvivalModelFit.

In[1]:=

X data = {10, 7, {32, \[Infinity]}, 23, 22, 6, 16, {34, \[Infinity]}, {32, \[Infinity]}, {6, \[Infinity]}, {10, \ \[Infinity]}}; \[ScriptCapitalS] = SurvivalModelFit[data]; Plot[\[ScriptCapitalS][t], {t, 0, 50}, Exclusions -> None, PlotRange -> {0, 1}]

Out[1]=

Estimated mean survival using four different parametric tail models.