Wolfram
Mathematica
8의 신기능: 매개 변수 추정 및 검정
◄
이전
|
다음
►
핵심 알고리즘
다변량 부호 검정 통계량 및 데이터 공간 부호 비교
다변량 데이터는 각 점을 그 유클리드 노름에서 규모에 따라 공간 부호로 전환할 수 있습니다. 공간 부호가 단위 구에 균일 성에서 빗나가게되면서 다변량 부호 검정 통계량이 증가하는 것을 알 수 있습니다.
In[1]:=
X
data = Table[ RandomVariate[ MultinormalDistribution[{a, -.5 a, a}, IdentityMatrix[3]], 500], {a, {0, 1, 2, 4}}];
In[2]:=
X
sPointPlot[data_] := Show[Graphics3D[{Directive[Yellow, Specularity[White, 20]], Sphere[{0, 0, 0}]}], ListPointPlot3D[Normalize /@ data, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}], Boxed -> False, PlotLabel -> Style[Text[SignTest[data, 0, "TestStatistic"]], Bold, GrayLevel[.4], FontSize -> 24], Background -> GrayLevel[0]] GraphicsGrid[Partition[sPointPlot /@ data, 2]]
Out[2]=