p=M/N

Binomialverteilung

Binomoalverteilung B_{N;p}(k)

Wirken Medikament und Placebo 
mit gleicher Wahrscheinlichkeit?
Exakter Test von Fisher mit
Hypergeo_{ N;M;n} (k) mit p=M/N

Placebo

Medikament

wirkt

wirkt nicht

N

N-M

M

N = 100 (slider from 1 to 600, step 1)
p = 0.75 (slider from 0 to 1, step d)
d: 1 / N
M: floor((N * p))
schlechte: N - M
n = 63 (slider from 1 to N, step 1)
bin = BinomialDist(n, p, false)
hyp = HyperGeometric(N, M, n, false)
trefferzahlen: {0…n}
von: (n * p) - (4 * sqrt(((n * p) * (1 - p))))
bis: (n * p) + (4 * sqrt(((n * p) * (1 - p))))
k = 51 (slider from floor(von) to ceil(bis), step 1)
s = HyperGeometric(N, M, n, k, false)
a = BarChart({k}, {s}, 1)
x_i = Sequence(i, i, 0, n)
y_i = Sequence(HyperGeometric[N, M, n, i, false], i, 0, n)
b = BarChart(x_i, y_i)
zipfl = Sequence(If[y_i(k) ≤ s, y_i(k), 0], k, 1, n + 1)
irrtum = BarChart(x_i, zipfl)
c = Length(zipfl)
e = Length(y_i)
f = Length(x_i)
g = false
D5: N
D4: M
D3: N - M
C5: n
B5: D5 - C5
C4: k
C3: C5 - C4
B3: D3 - C3
B4: D4 - C4
m1: {{B3, C3, D3}, {B4, C4, D4}, {B5, C5, D5}}
Text2 = LaTeX(m1, true, true)
Text6: "k=" + k + ""
z_i = Sequence(BinomialDist[n, p, i, false], i, 0, n)
bs = BinomialDist(n, M / N, k, false)
bzipfl = Sequence(If[z_i(k) ≤ bs, z_i(k), 0], k, 1, n + 1)
birrtum = BarChart(x_i, bzipfl)
ba = BarChart({k}, {bs}, 1)
Text3: "Binomialverteilung B_{n;p}(k)
Irrtumswahrscheinlichkeit  " + birrtum + ""
Text5: "Hypergeometrische Verteilung H_{N;M;n}(k) 
Irrtumswahrscheinlichkeit    " + (LaTeX[irrtum]) + ""
Vierfeldertafel = TableText({CellRange(A2,E2,"text"), CellRange(A3,E3,"text"), CellRange(A4,E4,"text"), CellRange(A5,E5,"text")}, "|_")
max = Max(y_i)