疾病の誘発時間分布を推定する
258人のエイズ患者のグループは，既知の日に輸血によってHIVにさらされた．研究の終了時までにエイズを患わなかった患者は含まれていない（右打切り）．
𝒟 = KernelMixtureDistribution[EventData[258], .75];
Mean[𝒟]Probability[t > 6, t𝒟]NExpectation[tt ≥ 6, t𝒟]aids = EventData[258];
dist = KernelMixtureDistribution[aids, h];
aidsDist = dist /. h -> .75;
Labeled[Plot[Evaluate@Table[PDF[dist /. h -> bw, t], {bw, .25, 1.25, .25}], {t, 0, 10}, ImageSize -> 450, PlotRange -> All, PlotStyle -> Thick, GridLines -> Automatic, GridLinesStyle -> Dotted, PlotLegends -> Placed[LineLegend[Automatic, Table[Style[i, Bold, FontFamily -> "Helvetica"], {i, .25, 1.25, .25}], LegendLabel -> Style["Bandwidth", Bold, FontFamily -> "Helvetica"]], Below]], Column[{Style["平坦化されたエイズ誘発時間分布", Bold, FontSize -> 18, FontFamily -> "Helvetica"], Style["輸血によって感染した大人", Bold, FontColor -> Gray, FontSize -> 14, FontFamily -> "Helvetica"]}], {{Top, Left}}]