Wolfram
Mathematica
8의 신기능: 매개 변수 추정 및 검정
◄
이전
|
다음
►
핵심 알고리즘
모든 숫자 데이터 집합에 대한 위치와 규모의 검정 동시 실행
모집단의 위치 및 규모 모수 비교에 의해 도출된 각각의 결과에 대한 테이블을 검정합니다.
In[1]:=
X
data = BlockRandom[SeedRandom[4]; MapThread[ RandomVariate[NormalDistribution[#1, #2], 100] &, {RandomReal[{-1, 1}, 6], RandomReal[{1.5, 2}, 6]}]];
In[2]:=
X
chrtAll = BoxWhiskerChart[data, "Notched", ChartLabels -> {1, 2, 3, Text[Style["4", Bold, FontSize -> 12, Underlined]], 5, Text[Style["6", Bold, FontSize -> 12, Underlined]]}, ChartElementFunction -> "GlassBoxWhisker", ChartStyle -> "SolarColors", ImageSize -> 250]; chrt2 = DistributionChart[data, ChartStyle -> "SolarColors", ImageSize -> 250, ChartElementFunction -> "PointDensity", ChartLabels -> {Text[Style["1", Bold, FontSize -> 12, Underlined]], 2, Text[Style["3", Bold, FontSize -> 12, Underlined]], 4, 5, 6}];
In[3]:=
X
lt = LocationTest[{data[[1]], data[[3]]}, Automatic, {"TestDataTable", All}]; vt = VarianceEquivalenceTest[{data[[4]], data[[6]]}, {"TestDataTable", All}]; Grid[{{lt, chrt2}, {chrtAll, vt}}, Spacings -> {0, 0}]
Out[3]=