A.3 Programación de la prueba exacta de Fisher
Para efectuar esta prueba es necesario calcular la probabilidad de obtener, por azar, una determinada tabla de 2×2 de
entre todas las posibles tablas con los mismos marginales (totales de filas y columnas):
El programa, que se situará en el área P3, pedirá entrar el número de casos de cada casilla a, b, c y d , se almacenarán en las
memorias 1, 2, 3 y 4, y luego se aplicará la fórmula anterior para calcular la probabilidad p :
MODE EXP
P3
SHIFT
in 1
in 2
AC ENT K
ENT K
[(..
out 1 +
out 2 ..)]
K
K
× [(..
out 3 +
out 4 ..)]
K
K
× [(..
out 1 +
out 3 ..)]
K
K
× [(..
out 2 +
out 4 ..)]
K
K
÷
x! ÷
out 1
out 2
K
SHIFT
K
÷
x! ÷
out 3
out 4
K
SHIFT
K
÷ [(..
out 1 +
out 2 +
K
K
•
MODE
Como ejemplo, vamos a calcular con este programa las probabilidades asociadas a las tablas que se presentan a
continuación:
A
B
+
10
2
12
−
0
8
8
10
10
20
A
B
+
9
3
12
−
1
7
8
10
10
20
A
B
+
8
4
12
−
2
6
8
10
10
20
Para efectuar la prueba de Fisher será necesario ir acumulando estas probabilidades en la memoria independiente
memorias 5 y 6 quedan libres para almacenar, si se desea, las sumas de las probabilidades de las dos colas de la
distribución.
12
a →
in 1
K
c →
in 3
K
a+c
in 3
in 4
ENT K
ENT K
x!
SHIFT
x!
SHIFT
x!
SHIFT
x!
SHIFT
x!
SHIFT
x!
SHIFT
out 3 +
out 4 ..)]
x! =
K
K
SHIFT
P3 10
2
SHIFT
RUN
RUN
P3 9
3
SHIFT
RUN
RUN
P3 8
4
SHIFT
RUN
RUN
b →
a+b
in 2
K
d →
c+d
in 4
K
b+d
n
0
8
RUN
RUN
0.00035722
7
1
7
RUN
RUN
0.00952607
7
2
6
RUN
RUN
0.07501786
1
(a+
b)!
(c+
d)!
(a+
c)!
p =
a!
b!
c!
d!
n!
Uso de la calculadora CASIO fx
(b+
d)!
. Las
M
−
3900PV