bsp_5_2_3.m

% Beispiel für Kap 5.2.3
%% Ausschussbeispiel
p0 = 0.005;
n = 2000;
Tx = 13;
al = 0.05;
ca = binoinv(1-al, n, p0)
pW = 1 - binocdf(Tx, n, p0)

test = n*p0*(1 - p0) % < 9?
z = norminv(1-al)
ca = n*p0 + z*sqrt(n*p0*(1 - p0))

%% Medikamentenbeispiel
n = 100;
m = 120;
x1 = 40;
y1 = 42;
k = x1 + y1;
p1 = hygecdf(x1, n+m, n, k)
p2 = 1 - hygecdf(x1-1, n+m, n, k)