Wolfram
Mathematica
8의 신기능: 매개 변수 추정 및 검정
◄
이전
|
다음
►
핵심 알고리즘
임의 분포 또는 데이터셋에 대한 적합도 검정
적응형 커널 밀도 추정 모수 분포를 시각적으로 비교하여 다수의 적합도 검정 중 하나를 사용하여 그 적응을 평가합니다.
In[1]:=
X
d = NormalDistribution; dat = BlockRandom[SeedRandom[2]; RandomVariate[\[ScriptD] = MixtureDistribution[Join[{1/2}, Table[2^(1 - i)/31, {i, -2, 2}]], Join[{d[]}, Table[d[i + 1/2, 1/(2^i*10)], {i, -2, 2}]]], 10^4]];
In[2]:=
X
p1 = Plot[Evaluate[PDF[\[ScriptD], x]], {x, -4, 4}, PlotRange -> All, Filling -> Axis, Axes -> {True, False}]; p2 = SmoothHistogram[dat, {"Adaptive", Automatic, .5}, Axes -> {True, False}, PerformanceGoal -> "Quality", PlotStyle -> Black]; p3 = DistributionFitTest[dat, \[ScriptD], {"TestDataTable", All}]; data = BlockRandom[SeedRandom[9]; RandomVariate[MultivariateTDistribution[IdentityMatrix[2], 20], 50]];
In[3]:=
X
p5 = DistributionFitTest[data, Automatic, {"TestDataTable", All}]; p4 = SmoothHistogram3D[data, {"Adaptive", Automatic, .25}, PlotRange -> All, ColorFunction -> "LakeColors", Axes -> {True, False, False}, ImageSize -> 250, Boxed -> False, BoxRatios -> {1, 1, 2/3}, PerformanceGoal -> "Quality"];
In[4]:=
X
Grid[{{Show[p1, p2, ImageSize -> 250], p3}, {p5, p4}}, Spacings -> {0, 0}]
Out[4]=
