Algoritmos de núcleo

Use prueba de de Hotelling para detectar billetes falsos

Calcule estadístico de prueba de

de Hotelling en varios pares de mediciones para notas bancarias suizas falsas y genuinas para seleccionar el mejor par de indicadores de que un billete es falso.

In[1]:=

In[2]:=

Framed[GraphicsGrid[

Table[cBills = Pick[data[[All, {i, j}]], data[[All, -1]], 1];

gBills = Pick[data[[All, {i, j}]], data[[All, -1]], 0];

If[i == j,

Graphics[

Style[Text[colheads[[i]]], Bold, FontSize -> 12,

FontFamily -> "Verdana"], Background -> White, Frame -> True,

FrameTicks -> None],

ListPlot[{cBills, gBills},

PlotStyle -> {{PointSize -> .05,

Hue[.742, .7, .7]}, {PointSize -> .05, Hue[.242, .7, .7]}},

Frame -> True, Axes -> False, FrameTicks -> None,

AspectRatio -> 1, Background -> White, ImageSize -> 80,

Epilog ->

Inset[Framed[

Style[ToString@

NumberForm[

TTest[{cBills, gBills}, Automatic, "TestStatistic",

VerifyTestAssumptions -> None], {4, 1}], Bold,

FontFamily -> "Verdana"], RoundingRadius -> 5,

Background -> Directive[Lighter[Yellow, .75]]],

Scaled[{.3, .75}]]]], {i, 6}, {j, 6}]], RoundingRadius -> 10,

FrameMargins -> 10, Background -> GrayLevel[.9]]

Out[2]=