Algoritmos de núcleo

Use funciones generales de contraste de hipótesis para seleccionar pruebas automáticamente

LocationTest automatiza el proceso de contrastar supuestos y elegir pruebas de ubicación. Aquí se realiza una prueba de la

bajo una alternativa particular unilateral.

In[1]:=

In[2]:=

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]:=

Out[3]=