핵심 알고리즘

배치 검증을 위한 시뮬레이션, 시각화 그리고 성능 곡선 비교

위치의 다양한 시험에 대한 경험적인 검색 능력을 실제 위치

의 함수를 사용 시각적으로 비교합니다.

In[1]:=

In[2]:=

tests = {"T", "Z", "SignedRank", "Sign"};

alts = {"Less", "Unequal", "Greater"};

res = Table[(Quiet@

LocationTest[#1, 0, i, AlternativeHypothesis -> j,

VerifyTestAssumptions -> None] &) /@ data, {i, tests}, {j,

alts}];

m = Mean /@ data;

Grid[Join[{Map[

Style[#, Bold, FontFamily -> "Verdana"] &, {"",

"\!\(\*SubscriptBox[\(H\), \(A\)]\): \[Mu] < \!\(\*SubscriptBox[\

\(\[Mu]\), \(0\)]\)",

"\!\(\*SubscriptBox[\(H\), \(A\)]\): \[Mu] \[NotEqual] \

\!\(\*SubscriptBox[\(\[Mu]\), \(0\)]\)",

"\!\(\*SubscriptBox[\(H\), \(A\)]\): \[Mu] > \!\(\*SubscriptBox[\

\(\[Mu]\), \(0\)]\)"}]},

Join[Partition[

Thread[Rotate[

Map[Style[#, Bold, FontFamily -> "Verdana"] &, {"t", "z",

"signed rank", "sign"}], \[Pi]/2]], 1],

Table[ListPlot[Transpose[{m, res[[i, j]]}], FrameTicks -> None,

Frame -> True, PlotRange -> {{-.5, .5}, {0, 1}},

PlotStyle -> Hue[.992, .7, .7]], {i, 4}, {j, 3}], 2]],

Spacings -> {.25, .25}]

Out[2]=