乳癌患者の退縮までの時間
乳癌患者が放射線治療を受け,乳房の退縮までの時間が記録された.患者は1週間に一度訪れ,ときどき予約を守らないことがあったので,退縮までの時間は訪問と訪問の間の時のみに起ることが分かっている.
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, tdata]SurvivalModelFit[data]["EventTableFunction"][Range[5, 40, 5]]