Wolfram
Mathematica
8의 신기능: 매개 변수 추정 및 검정
◄
이전
|
다음
►
핵심 알고리즘
일반 가설 검정 함수를 사용한 자동 검정 선택 기능
LocationTest
는 전제 검정 및 위치 검정의 선택 과정을 자동화 합니다. 이것은 특정한 한쪽 대립 가설 하에서
-검정을 수행한 것입니다.
In[1]:=
X
d1 = NormalDistribution[-.5, 1]; d2 = NormalDistribution[1.5, 1]; data = BlockRandom[SeedRandom[6]; RandomVariate[d2, 100]];
In[2]:=
X
Show[Plot[{PDF[d1, x], PDF[d2, x]}, {x, -6, 7}, PlotStyle -> {{Thick, Darker[Green]}, {Thick, Darker[Red]}}, Axes -> {True, False}, Ticks -> None, PlotLabel -> Text[Style[ "\!\(\*SubscriptBox[\(H\), \(o\)]\): t \[LessEqual] \ \!\(\*SubscriptBox[\(t\), \(o\)]\)" , Bold, FontSize -> 14]]], Plot[PDF[d1, x], {x, 1.5, 7}, PlotRange -> All, Filling -> Axis], Graphics[{Dashed, Red, Line[{{1.5, 0}, {1.5, PDF[d2, 1.5]}}]}], Graphics[{Dashed, Green, Line[{{-.5, 0}, {-.5, PDF[d1, -.5]}}]}], Graphics[{Arrowheads[Small], Arrow[{{4., 0.1}, {1.9, 0.015}}], Text[ Style["\!\(\*SubscriptBox[\(P\), SubscriptBox[\(H\), \(o\)]]\)[ t \ > \!\(\*SubscriptBox[\(t\), \(obs\)]\) ]", Bold, FontSize -> 12], {4, 0.1}, {-1, -1}]}], Graphics[{Arrowheads[Small], Arrow[{{-1.5, 0.1}, {-.5, 0.1}}], Text[ Style["\!\(\*SubscriptBox[\(t\), \(o\)]\)", Bold, FontSize -> 12], {-1.9, 0.09}, {-1, -1}]}], Graphics[{Arrowheads[Small], Arrow[{{3., 0.25}, {1.5, 0.25}}], Text[ Style["\!\(\*SubscriptBox[\(t\), \(obs\)]\)", Bold, FontSize -> 12], {3.25, 0.24}, {-1, -1}]}], ImageSize -> 300]
Out[2]=
In[3]:=
X
Subscript[\[Mu], 0] = 1.4; LocationTest[data, Subscript[\[Mu], 0], "TestDataTable", AlternativeHypothesis -> "Greater"]
Out[3]=