data=EventData[46];

Quartiles[data]

Manipulate[Plot[Evaluate@SurvivalFunction[KernelMixtureDistribution[data,h],t],{t,0,60},PlotRange->{0,1},Filling->Axis,ImageSize->350],{h,.01,5},SaveDefinitions->True]

Expectation[t,t\[Distributed]data]

SurvivalModelFit[data]["EventTableFunction"][Range[5,40,5]]