Wolfram
Mathematica
8의 신기능: 매개 변수 추정 및 검정
◄
이전
|
다음
►
핵심 알고리즘
성분 혼합 분포를 사용한 다중 모드 데이터의 모델링
일부 커널 밀도 추정을 사용하여 간헐천 분출 간격에 대한 혼합 성분의 수를 결정하고 데이터를 감마 분포의 혼합에 맞는 모수를 추정합니다.
In[1]:=
X
waiting = ExampleData[{"Statistics", "OldFaithful"}][[All, 2]];
In[2]:=
X
mdist = MixtureDistribution[{1/3, 2/3}, {GammaDistribution[a, b], GammaDistribution[c, d]}]; edist = EstimatedDistribution[waiting, mdist, {{a, 80}, {b, .5}, {c, 200}, {d, 0.5}}];
In[3]:=
X
dp = DiscretePlot[ PDF[EmpiricalDistribution[waiting], x], {x, DeleteDuplicates[waiting]}, Filling -> Axis, PlotRange -> {{35, 100}, All}, AxesOrigin -> {35, 0}, PlotStyle -> Darker@Hue[.908667, .7, .7]]; {Show[dp, Map[SmoothHistogram[waiting, #, PlotRange -> {{35, 100}, All}, PlotStyle -> Darker@Hue[.908667, .7, .7]] &, {{"Adaptive", Automatic, 1}, "SheatherJones", "LeastSquaresCrossValidation", "Oversmooth"}]], Show[dp, Plot[PDF[edist, x], {x, 0, 100}, PlotStyle -> {{Darker@Hue[.908667, .7, .7], Thick}}, Filling -> Axis, FillingStyle -> Directive[Opacity[.2], Hue[.908667, .7, .7]], PlotRange -> {{35, 100}, All}]]} // GraphicsRow
Out[3]=